Imprimir directamente

[ecfisa]

Hola Lucas.

1) y 2):

Código Delphi [-]
  ...
    Canvas.Font.Color:= clBlack;
    Canvas.Font.Height:= Printer.PageHeight div 60; // Aumentar tamaño del font
    s:= 'El titulo del documento';
    Canvas.TextOut((Printer.PageWidth-Canvas.TextWidth(s)) div 2, i*y, s );  // Título centrado
    Inc(i);
    s:= 'Fecha: '+Label10.Caption+'     Nº: '+Label11.Caption;
    Canvas.TextOut(x, i*y, s);
    Inc(i);
    ClientDataSet.First;
    while not ClientDataSet.Eof do
    ...

3) No sé si se me está escapando... Pero no veo al Edit3 ni donde debería imprimirse


Saludos.