Tecnobyte

Siga os passos abaixo para criar um pequeno programa capaz de imprimir uma linha de texto usando o objeto Printer.Canvas no Lazarus.
Este exemplo imprime na impressora que estiver selecionada como padrão no sistema operacional.
Código do evento OnClick do botão:
procedure TForm1.Button1Click(Sender: TObject); begin Printer.BeginDoc; try Printer.Canvas.Font.Name := 'Arial'; Printer.Canvas.Font.Size := 16; Printer.Canvas.Font.Style := [fsBold]; Printer.Canvas.TextOut(10, 10, 'www.tecnobyte.com.br'); finally Printer.EndDoc; end; end;
*Se o pacote Printer4Lazarus não estiver disponível, siga as instruções abaixo para adicioná-lo ao Lazarus.
O procedimento acima foi testado no Lazarus 1.6.4 e poderá ser diferente em outras versões.
O conteúdo desta página pode ajudar alguém? Compartilhe!