...
uses Printers;
Procedure imprimir(Prn: TPrinter);
begin
with Prn do
begin
BeginDoc;
Canvas.Font.Color := clBlack;
Canvas.Font.Size := 15;
Canvas.TextOut(250, 650, 'Destino: ');
EndDoc;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Printer: TPrinter;
begin
if PrintDialog1.Execute then
begin
Printer:= TPrinter.Create;
try
imprimir(Printer);
finally
Printer.Free;
end;
end;
end;