VPF::печать листа формата А3 - Форум программистов

Avada

Дата 13.12.2010, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 24.11.2010

Репутация: нет
Всего: нет

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

Данкинг

Дата 13.12.2010, 22:54 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

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

--------------------

There's nothing left but silent epitaphs.

Avada

Дата 14.12.2010, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 24.11.2010

Репутация: нет
Всего: нет

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

Цитата

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

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

superVad

Дата 14.12.2010, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

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

Avada

Дата 14.12.2010, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 24.11.2010

Репутация: нет
Всего: нет

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

Snowy

Дата 14.12.2010, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

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

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 24.11.2010

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »