Buscar por:

Imprimindo com o tprinter ( via gerenciador de impressão)

Código

Procedure TForm1.BitBtn1Click(Sender: TObject); 

var 

Linha:integer; 

Tamanho:integer; 

Coluna:integer; 

begin 

Printer.Orientation := poLandscape; 

Printer.BeginDoc; 

Printer.Canvas.Pen.Width := 5; 

Printer.Canvas.Font.Name := 'Times New Roman'; 

Printer.Canvas.Font.Size := 10; 

Linha := 20; 

Coluna:= 20; 

Tamanho := Printer.Canvas.TextWidth('a'); 

Table1.First; 

while not Table1.Eof do 

begin 

if Linha = 20 then 

begin 

Coluna := 20; 

Printer.Canvas.TextOut(0,Linha,'Relação de Clientes'); 

Linha := Linha - Printer.Canvas.Font.Height + 5 ; 

Printer.Canvas.TextOut(Coluna,Linha,'Cod'); 

Coluna:= Coluna + (Tamanho * 5 ); 

Printer.Canvas.TextOut(Coluna,Linha,'Nome'); 

Coluna:= Coluna + (Tamanho * 30); 

Printer.Canvas.TextOut(Coluna,Linha,'Endereço'); 

Coluna:= Coluna + (Tamanho * 30); 

Linha := Linha - Printer.Canvas.Font.Height + 5 ; 

end; 

Coluna := 20 ; 

Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName('Codigo').AsString); 

Coluna:= Coluna + (Tamanho * 5 ); 

Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName('Nome').AsString); 

Coluna:= Coluna + (Tamanho * 30); 

Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName('End').AsString); 

Coluna:= Coluna + (Tamanho * 30); 

Linha := Linha - Printer.Canvas.Font.Height + 5 ; 

Table1.Next; 

if Linha > Printer.PageHeight-20 then 

Begin 

Printer.NewPage; 

Linha := 20; 

end; 

end; 

Printer.EndDoc; 

end;