программно сменить формат бумаги

← →
d_oleg © (2003-01-30 11:51) [0]

задача такая: нужно один документ печатать, скажем, на A4, другой - на A3. Как в свойствах принтера можно программно поменять формат бумаги? Репортеры я не использую.

← →
stone © (2003-01-30 12:13) [1]

var
Printer: TPrinter;

procedure TForm1.PortraitClick(Sender: TObject);
begin
Printer.Orientation := poPortrait;
end;

procedure TForm1.LandscapeClick(Sender: TObject);
begin
Printer.Orientation := poLandscape;
end;

← →
REA © (2003-01-30 12:14) [2]

The DocumentProperties function retrieves or modifies printer initialization information or displays a printer-configuration dialog box for the specified printer.

Использовать типа такого (выдержка из исходников)
возможно можно как то и проще:

if OpenPrinter(ADevice, FPrinterHandle, nil) then
begin
if DeviceMode = 0 then // тут у них может быть переменная
// класса причем private - не добраться до нее, поэтому
//наверно можно через procedure GetPrinter

begin
DeviceMode := GlobalAlloc(GHND,
DocumentProperties(0, FPrinterHandle, ADevice, StubDevMode,
StubDevMode, 0));
if DeviceMode <> 0 then
begin
DevMode := GlobalLock(DeviceMode);
if DocumentProperties(0, FPrinterHandle, ADevice, DevMode^,
DevMode^, DM_OUT_BUFFER) < 0 then
begin
GlobalUnlock(DeviceMode);
GlobalFree(DeviceMode);
DeviceMode := 0;
end
end;
end;
if DeviceMode <> 0 then
SetPrinterCapabilities(DevMode^.dmFields);
end;

← →
Chubais © (2003-01-30 12:46) [3]

> stone © (30.01.03 12:13)

гыыы
а причем здеся ориентация?

Как программно сменить ориентацию... хм. только хирургически.

программно сменить формат бумаги Найти похожие ветки