Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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)

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

---

← →
stone   (2003-01-30 12:47) [4]

2 Chubais © (30.01.03 12:46)

Мда, действительно, что то я не то сморозил :)))

---

← →
REA   (2003-01-30 14:16) [5]

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

---

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

Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Наверх

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