Llamar procedimiento para impresion

[ecfisa]

Hola.

Probá haciéndolo así:

Código Delphi [-]
...

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;

Saludos.