Fórum Como definir impressão na COM1 via DOS? #233355
20/05/2004
0
preciso imprimir etiquetas em uma impressora de código de barras e ela é conectada na COM1, o processo de impressão é o mesmo do que mandar para uma lpt1?
procedure TFmEtiquetas.btEtiquetaClick(Sender: TObject);
var
IMPRESSORA:TextFile;
begin
AssignFile(IMPRESSORA,´COM1:´);
Rewrite(IMPRESSORA);
Write(IMPRESSORA,´blablabla´);
System.Close(Impressora);
end;
procedure TFmEtiquetas.btEtiquetaClick(Sender: TObject);
var
IMPRESSORA:TextFile;
begin
AssignFile(IMPRESSORA,´COM1:´);
Rewrite(IMPRESSORA);
Write(IMPRESSORA,´blablabla´);
System.Close(Impressora);
end;
Impactus
Curtir tópico
+ 0
Responder
Posts
20/05/2004
Lucas Silva
Este código seleciona uma impressora instalada na sua máquina..
function TForm1.SelecionaImpressora: String;
var Driver, Device, Port : array[0..79] of char;
Mode : THandle;
palav: String;
i: Integer;
begin
for i := 0 to 79 do
Port[i] := 0;
Printer.GetPrinter(Driver, Device, Port, Mode);
palav := ´´;
for i := 0 to 79 do
palav := palav + Port[i];
Result := palav;
end
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)