[ezeff]

Добрый день.
Есть вопрос на который пока не смог найти ответ в поисковиках. Цель - создать альтернативный упрощённый диалог настройки печати
1.Необходимо выбрать принтер из списка установленных - с этим разобрался

Код:

1 2	ComboBox1.Items:=Printer.Printers; ComboBox1.ItemIndex:=Printer.PrinterIndex;

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

Код:

1	Printer.Orientation:=poLanscape;

4.Из из полученного списка бумаги выбрать нужный формат(А3, альбомная) так чтоб принтер понял - вот тут и начинаются проблемы
Нашёл как задать формат бумаги но это не то, здесь только выбор из стандартного списка DMPAPER_..., а нужно чтобы выбор и установка бумаги была из пункта 2.

Подскажите кто чем может, или вектор покажите - куда копать.

[ipalex]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

type   TPaperSizeArray = array [word] of TPoint;   PPaperSizeArray = ^TPaperSizeArray;   function GetPaperSize(iPaperIndex: Integer): TPoint; var   Device, Driver, Port: array [0..255] of Char;   hDevMode: THandle;   iPaperSizesCount: Integer;   pPaperSizes: PPaperSizeArray; begin   Printer.GetPrinter(Device, Driver, Port, hDevMode);   iPaperSizesCount := DeviceCapabilities(Device, Port, DC_PAPERSIZE, nil, nil);   Result.X := 0;   Result.Y := 0;   if (iPaperSizesCount > 0) and (iPaperIndex <= iPaperSizesCount) then begin     GetMem(pPaperSizes, iPaperSizesCount * SizeOf(TPoint));     try       DeviceCapabilities(Device, Port, DC_PAPERNAMES, PChar(pPaperSizes), nil);       Result := pPaperSizes^[iPaperIndex];     finally       FreeMem(pPaperSizes);     end;   end; end;   procedure SetPaperSize(const PaperSize: TPoint); var   Device, Driver, Port: array [0..255] of Char;   hDevMode: THandle;   pDMode: PDeviceMode; begin   Printer.GetPrinter(Device, Driver, Port, hDevMode);   if hDevMode <> 0 then begin     pDMode := GlobalLock(hDevMode);     if pDMode <> nil then     try       // Set to custom size       pDMode^.dmFields := pDMode^.dmFields or         DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;       pDMode^.dmPaperSize := DMPAPER_USER;       pDMode^.dmPaperWidth := PaperSize.X;       pDMode^.dmPaperLength := PaperSize.Y;       finally       GlobalUnlock(hDevMode);     end;   end; end;

lmikle: пользуемся тегами!!!