Форум: "Основная";
Текущий архив: 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