Скачать: CL | DM;

Как установить размер страницы при печати через Printer   Найти похожие ветки 

← →
Monax ©   (2006-05-14 13:10) [0]

Кто знает, подскажите. Печатаю через Printer. Мне нужно, чтобы объекты четко попадали в нужное место, но гуляющий по всему инету пример меняет размер страницы только на виртуальном принтере, а на реальном нет. Если задаеш пользовательский формат в тупую, то принтер оставляет поля и точное позиционирование не получается.

Что не так?

 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_PAPERWIDTHor
                         DM_PAPERLENGTH;
     pDMode^.dmPaperSize   := DMPAPER_USER;
     pDMode^.dmPaperWidth  := Round(10*PaperWidth);
     pDMode^.dmPaperLength := Round(10*PaperLength);
     GlobalUnlock(hDMode);
   end;
 end;
 Printer.PrinterIndex := Printer.PrinterIndex;

---

← →
REA   (2006-05-15 10:39) [1]

>чтобы объекты четко попадали в нужное место
рисуй в это место

---

← →
REA   (2006-05-15 10:43) [2]

Или SetViewportOrgEx

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c