[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