Imprimir directamente

[ecfisa]

Hola Lucas.

Código Delphi [-]
uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,x,y: Integer;
  s: string;
begin
  with TPrinter.Create do
  try
    i:= 1;
    BeginDoc;
    x := Printer.PageWidth div 15;
    y := Printer.PageHeight div 50;
    Canvas.Font.Name:= 'Times new Roman';
    Canvas.Font.Color:= clBlack;
    Canvas.Font.Height:= Printer.PageHeight div 60; // Aumentar tamaño del font
    ClientDataSet.First;
    while not ClientDataSet.Eof do
    begin
      s:= ClientDataSet.FieldByName('Campo1').AsString +' '+
          ClientDataSet.FieldByName('Campo2').AsString +' '+
          //...
          ClientDataSet.FieldByName('CampoN').AsString;
      Canvas.TextOut(x, i*y , s);
      ClientDataSet.Next;
      Inc(i);
    end;
    s:= 'ETIQUETA1: '+Edit1.Text+'     ETIQUETA2: '+Edit2.Text; //2 edits en 1 linea, separados y c/u precedido por una etiqueta
    Canvas.TextOut(x, i*y, s);
    EndDoc;
  finally
    Free;
  end;
end;

Saludos.