Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
7-29129
Igor B.
2002-12-06 19:49
2003.02.10
COM/LPT-порты


14-28987
vopros
2003-01-23 10:25
2003.02.10
Кто видел , чтоб DBImage хранил jpg?


6-28968
Eugenex
2002-12-18 13:11
2003.02.10
units for the Microsoft Windows IP Helper API !


3-28649
ruslanyd
2003-01-23 00:01
2003.02.10
Генераторы в Interbase


8-28943
DDS
2002-10-28 10:44
2003.02.10
Как выдрать из EXE иконку с размером 16Х16 с хорошим качеством





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский