TPrinter

O objeto TPrinter encapsula detalhes de impressoras Windows. Para conseguir uma lista de impressoras instaladas e disponíveis, use a propriedade Printers. O objeto printer usa um TCanvas (que é idêntico a TCanvas para form) o que significa que qualquer coisa que pode ser desenhada no form pode ser imprimido também. Para imprimir uma imagem, chame o método BeginDoc depois de qualquer gráfico canvas que você quiser imprimir (incluindo textos através do método TextOut) e envie o trabalho para a impressora pela chamada do método EndDoc.

Este exemplo usa um button e um memo no form. Quando o usuário clica o botão, o conteúdo do memo é imprimido com uma borda de 200 pixel’s em volta da página.

Para executar este exemplo com sucesso, inclua Printers.hpp em seu arquivo unit.

#include <Printers.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPrinter Prntr = Printer();
TRect r = Rect(200,200,Prntr->PageWidth – 200,Prntr->PageHeight – 200);
Prntr->BeginDoc();
Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
Prntr->EndDoc();

}