É necessário estar declarado Printers na seção uses,
em versões unicode declare Vcl.Printers.
Este exemplo é bem básico, porém pode ser muito útil
para você ter ideias de como realizar o procedimento.
Abaixo segue o código fonte do exemplo:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | // Exemplo de uso procedure TForm1.Button1Click(Sender: TObject); const ALTURA_LINHA = 70; MARGEM_ESQUERDA = 50; var vLinha, ct : integer; begin Printer.BeginDoc; vLinha := 0; for ct := 0 to 1000 do begin if ((ALTURA_LINHA * vLinha) > Printer.PageHeight) then begin Printer.NewPage; vLinha := 0; end; Printer.Canvas.TextOut(MARGEM_ESQUERDA, ALTURA_LINHA * vLinha, IntToStr(ct)); Inc(vLinha); end; Printer.EndDoc; end; |
Neste exemplo o arquivo será impresso na impressora padrão, o conteúdo a
ser impresso é uma lista de números.
Neste exemplo está sendo criada mais de uma página.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
