Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как задать в принтере свойства страницы

Автор: MItornaDOS 23.3.2008, 10:26

сабж
работаю так:

Код


  With Printer do
    Begin
      BeginDoc;
      With Canvas do
        Begin
          Font.Name := 'Times New Roman';
          Font.Size := 10;
          Font.Style := [];

          dY := TextHeight('1');
          Y := 480;
          X := PageWidth Div 210;





          Font.Size := 7;
          TextOut (198 * X, Y, '*****');
          //...

Автор: MItornaDOS 25.3.2008, 11:23

Спасибо всем огромное! Очень помогли!

Вот ответ:

Код


Printer.Orientation := poLandscape;  // горизонтальная (альбомная)
Printer.Orientation := poPortrait;   // вертикальная (обычная)