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

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

Форум программистов > Delphi: Для новичков > печать листа формата А3

Автор: Avada 13.12.2010, 22:43

Всем привет. Подскажите, как вывести на печать лист формата А3 и что для этого нужно указать.
Специализированный принтер имеется, если что.
Заранее спасибо.

Автор: Данкинг 13.12.2010, 22:54

В смысле - откуда вывести? Можно через отчёты - FastReport и т.п.

Автор: Avada 14.12.2010, 00:21

Я не спросил, откуда вывести, я спросил - как вывести.

Цитата

Подскажите, как вывести на печать лист формата А3 и что для этого нужно указать.

мне не нужна какая-то специализированная программа для моей задачи,
мне нужно вывести на печать лист формата А3 программно.

Автор: superVad 14.12.2010, 12:58

В ворде поставь формать листа А3 и распечатай.

Автор: Avada 14.12.2010, 16:02

ну в моем случае лучше из программы вывести в excel и
там уже настраивать печать. Я просто хотел найти подход
к самостоятельному выводу на печать, чтобы программа
совсем ни от чего не зависела. Вывести А4 могу, а вот с А3
проблема..
ну раз решений нет, то тема решена.

Автор: Snowy 14.12.2010, 16:55

Не вижу разницы между выводом на печать А4 и А3.
Соответственно не вижу проблемы...

Добавлено @ 17:05
Мои телепатические способности подсказывают мне, что вероятная проблема - установить формат бумаги.
Вот код из http://www.drkb.ru/:

Код


var
    Device, Driver, Port: array[0..80] of Char;
    DevMode: THandle;
    pDevmode: PDeviceMode;
  begin
    Printer.GetPrinter(Device, Driver, Port, DevMode);
    Printer.SetPrinter(Device, Driver, Port, 0) ;
    Printer.GetPrinter(Device, Driver, Port, DevMode);
    If Devmode <> 0 Then Begin
      pDevMode := GlobalLock( Devmode );
      If pDevmode <> Nil Then
      try
        With pDevmode^ Do Begin
          dmPapersize := DMPAPER_A3;
          dmFields := dmFields or DM_PAPERSIZE;
        End;
     finally
       GlobalUnlock( Devmode );
     end;
    End;
  end;

Автор: Avada 14.12.2010, 18:25

Вот. Это то, что было нужно. Большое спасибо!