Buscar por:

Imprimindo em impressora matricial em modo caractere (via rede)

Código

// Esta rotina lê todas as impressoras instaladas no windows

// e coloca dentro de um ComboBox e não se esqueça de adicionar

// na cláusula uses a unit Printers

 procedure TForm1.FormShow(Sender: TObject); 

var I : Integer; 

begin 

ComboBox1.Items.Clear; 

For I:= 1 to Printer.Printers.Count do 

Begin 

if Pos('LPT', printer.Printers.Strings[I-1]) > 0Then 

ComboBox1.Items.Add('LPT1') 

Else if Pos('\', printer.Printers.Strings[I-1]) > 0 Then 

ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1], 

Pos('\', printer.Printers.Strings[I-1]), 

length(printer.Printers.Strings[I-1]) - 

Pos('\', printer.Printers.Strings[I-1]) + 1)); 

End; 

End; 

// e quando apertar o botao imprimir, o evento pega qual a impressora 

// que você escolheu atravéz do ComboBox e Imprimi. 

procedure TForm1.btImprimirClick(Sender: TObject); 

var I:Integer; 

Arquivo : TextFile; 

begin 

AssignFile(Arquivo,ComboBox1.Value); 

Rewrite(Arquivo); 

WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 1'); 

WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 2'); 

WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 3'); 

WriteLn(Arquivo, 'TESTE DE IMPRESSAO - 4'); 

CloseFile(Arquivo); 

end;