VPF::Управление принтером - Форум программистов

VadimG

Дата 28.11.2005, 12:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Люди вопрос такой:

Мне надо на принтере распечатать документ на листе не стандартного размера, по ширине А4 а по длине как два А4. У меня он строго выкидывает лист после длины А4, если я вручнюю указываю длину листа в настройках принтера то все гуд, а так не хочет подскажите как из проги переключить параметры листа в настройках принтеда

Snowy

Дата 28.11.2005, 13:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Что за принтер?
Печатаешь напрямую в порт, через канвас или какой-либо репорт-мэйкер?

VadimG

Дата 28.11.2005, 14:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Принтеры Canon S200 и IP1000
Печатаю прямо на канвас

Snowy

Дата 28.11.2005, 15:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://vingrad.ru/DELPHI-DLP-000963

Код


var    
  Device: array[0..255] of char;    
  Driver: array[0..255] of char;    
  Port: array[0..255] of char;    
  hDMode: THandle;    
  PDMode: PDEVMODE;    
begin    
  Printer.PrinterIndex := Printer.PrinterIndex;    
  Printer.GetPrinter(Device, Driver, Port, hDMode);    
  if hDMode <> 0 then    
    begin    
      pDMode := GlobalLock(hDMode);    
      if pDMode <> nil then    
        begin    
          pDMode^.dmFields := pDMode^.dmFields or
            DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
          pDMode^.dmPaperSize := DMPAPER_USER; // свой размер
          pDMode^.dmPaperWidth := 100; // ширина мм
          pDMode^.dmPaperLength := 100; // высота мм
          pDMode^.dmFields := pDMode^.dmFields or DM_COPIES;
          pDMode^.dmCopies := 5; // 5 копий
          GlobalUnlock(hDMode);    
        end;    
      GlobalFree(hDMode);    
    end;    
  Printer.PrinterIndex := Printer.PrinterIndex;    
  Printer.BeginDoc;    
  Printer.Canvas.TextOut(100, 100, 'Тест 1');    
  Printer.EndDoc;

Guest

Дата 2.12.2005, 16:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Пример похож на тот что у меня есть но он не работает, может этот пример для матричных принтеров

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