Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-28704
MixerPro
2003-01-30 17:12
2003.02.10
Поиск в TreeView


3-28620
EXE
2003-01-23 11:26
2003.02.10
Обработка события onGetText


3-28670
AALLEEXX
2003-01-22 15:51
2003.02.10
Картинке в сетке RXdbGrid


3-28615
Андрусь
2003-01-22 13:18
2003.02.10
Как передать в базу число > предела точности Integer


14-29069
Дмитрий К.К.
2003-01-23 17:37
2003.02.10
1937-й год