Impresion con TPrintDialog

[leogobo]

Hola,

Estoy tratando de usar TPrintDialog de lazarus. Lo que quiero hacer es enviar directamente a la impresora sin crear un documento, no se si es posible.

Trato haciendo lo siguiente pero lo que hace es imprimir en el formulario, no lo envia a la impresora.

Código Delphi [-]
if printdialog1.Execute then
begin
  Canvas.Font.Name := 'Courier New';
  Canvas.Font.Size := 10;
  Canvas.Font.Color := clRed;
  LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
  Canvas.TextOut(500, 1115, 'Hola');
end;

Gracias

[ecfisa]

Hola leogobo.

Código Delphi [-]
if PrintDialog1.Execute then
begin
  ...
  Printer.BeginDoc;
  Printer.Canvas.TextOut(500, 1115, 'Hola');
  Printer.EndDoc;
end;

Recordá que el código que pongas es más legible si lo encerras entre [delphi] [/delphi]


Saludos.

[leogobo]

muchas gracias por la ayuda.