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.

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.


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 ;)


Saludos.

[leogobo]

muchas gracias por la ayuda.