Amigos: Estoy haciendo una aplicación CLX en Windoze y tengo 5 impresoras conectadas a un print server, ése es el escenario; ahora bien, necesito imprimir lo que sea en la impresora que yo diga, a ver si me explico mejor. Necesito que una factura siempre salga -por ejemplo- por el puerto LPT1, los recibos por el puerto LPT2, etc. Con una vieja aplicación DOS era sencillo, pero en Windoze la cosa cambia. La porcion de código más abajo descrita, hace el trabajo pero el usuario tiene que elegir la impresora, y eso es lo que NO QUIERO. ¿Cómo puedo 'setear' la impresión para que salga por un determinado puerto, evitando que el usuario elija la impresora?. Todo el proceso debiera ser transparente para el usuario. Gracias por la ayuda y la orientación que puedan darme. Ernesto ------------------------------------------ //cuando creo el formulario begin //Llena el combo con las impresoras instaladas en el sistema cbImpresoras.Items.Assign(Printer.Printers); end; procedure TForm1.BitBtn1Click(Sender: TObject); var f: textFile; i: integer; begin //Impresion de texto AssignPrn(f); Rewrite(f); for i:= 0 to pred(memo1.Lines.Count) do writeln(f,memo1.lines[i]); CloseFile(f); //Impresion de graficos Printer.BeginDoc; Canvas.TextRect(Rect(10,10,300,300),200, 200, Memo1.Lines.Text); // Printer.Canvas.Ellipse(10,10,300,300); printer.EndDoc; end; procedure TForm1.cbImpresorasChange(Sender: TObject); begin Printer.PrinterIndex:= cbImpresoras.ItemIndex; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin close; // cierro el formulario end;
participants (1)
-
Grupo Dignitas