Клуб программистов

    Delphi функция Printer возвращает ссылку на глобальный принтер (объект TPrinter).

    Объект TPrinter ( принтер ) имеет много методов и свойств, которые вы можете использовать, чтобы управлять печатью.

    BeginDoc : начать печать
    EndDoc : закончить печать
    NewPage : начать с новой страницы
    PageHeight : высота страницы - холста в пикселях
    PageWidth : ширина страницы - холста в пикселях
    Canvas.Font : установить шрифтовой размер, цвет и т.п.
    Canvas.Draw : поставить графический символ на странице
    Canvas.TextOut : написать текст на странице

    Вы должны использовать TPrintDialog, чтобы предложить пользователю выбор принтера и диалога конфигурации перед печатью, как в примере.

var
   printDialog : TPrintDialog;
   myPrinter : TPrinter;

begin
   // Create a printer selection dialog
   printDialog := TPrintDialog.Create(Form1);

   // If the user has selected a printer (or default), then print!
   if printDialog.Execute then
   begin
     // Use the Printer function to get access to the
     // global TPrinter object.
     // All references below are to the TPrinter object
     myPrinter := Printer;
     with myPrinter do
     begin
       // Start printing
       BeginDoc;

       // Set up a large blue font
       Canvas.Font.Size := 20;
       Canvas.Font.Color := clBlue;

       // Write out the page size
       Canvas.TextOut(20, 20, 'Page width = '+IntToStr(PageWidth));
       Canvas.TextOut(20, 150, 'Page height = '+IntToStr(PageHeight));

       // Finish printing
       EndDoc;
     end;
   end;
end;

A page will be printed with big blue text at the top left:

Page width = 2400
Page height = 3357