Como definir impressão na COM1 via DOS?

Delphi

20/05/2004

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;


Impactus

Impactus

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

20/05/2004

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;



GOSTEI 0
POSTAR