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

Вниз

ориентацию бумаги перед печатью   Найти похожие ветки 

 
DIS   (2004-05-28 23:50) [0]

Вопрос такого плана: как програмно задать ориентацию бумаги перед печатью.
Код для печати текущей страницы в WebBrowser.

procedure TForm1.Button2Click(Sender: TObject);
var  A, B: OleVariant;  UserAction: Cardinal;
begin  if Sender = PrintDialog1
then    UserAction := OLECMDEXECOPT_PROMPTUSER
else    UserAction := OLECMDEXECOPT_DONTPROMPTUSER;
try    WebBrowser1.ExecWB(OLECMDID_PRINT, UserAction, A, B);
except  end; end;


 
DIS   (2004-05-29 00:33) [1]

утро вечера мудренее


 
DIS   (2004-05-29 22:07) [2]

Видимо ни утро и ни вечер не мудренее.


 
GuAV ©   (2004-05-29 22:27) [3]

Printer.Orientation - пробовал?


 
DIS   (2004-05-29 23:10) [4]

нет не пробовал. сейчас попробую


 
DIS   (2004-05-29 23:35) [5]

Странно я пишу так, а в предварительном просмотре страница все равно вертикально

procedure TForm1.Button2Click(Sender: TObject);
var  A, B: OleVariant;  UserAction: Cardinal;
begin if Sender = PrintDialog1
then    UserAction := OLECMDEXECOPT_PROMPTUSER
else    UserAction := OLECMDEXECOPT_DONTPROMPTUSER;
try    WebBrowser1.ExecWB(OLECMDID_PRINT, UserAction, A, B);
except   end;
Printer.Orientation:=poLandscape;
end;


 
GuAV ©   (2004-05-29 23:37) [6]

procedure TForm1.Button2Click(Sender: TObject);
var  A, B: OleVariant;  UserAction: Cardinal;
begin if Sender = PrintDialog1
then    UserAction := OLECMDEXECOPT_PROMPTUSER
else    UserAction := OLECMDEXECOPT_DONTPROMPTUSER;
try    
Printer.Orientation:=poLandscape; // сюда лучше попробуй
WebBrowser1.ExecWB(OLECMDID_PRINT, UserAction, A, B);
except   end;
end;


 
DIS   (2004-05-30 00:48) [7]

пробовал как Вы посоветовали результат тот же.
Может попробовать диалог настроки в справке написано что Execute должен применять настройки как текущие. Но вызываю диалог, руками ставлю альбомная жму ОК. Жму на кнопку распечатать страница опять вертикально. Может можно сделать как то, чтобы при нажатии клавиши ОК в настройках документ сразу передовался в печать?

procedure TForm1.Button3Click(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;


 
GuAV ©   (2004-05-30 10:33) [8]

Значит, дельфовские настройки принтера в PrintDialog и в Printer по барабану. Не удивительно, вообще-то т.к. Вы не используете объект принетр в дельфи Printer.
Я вообще-то с WebBrowser"ом никогда не сталкивался...


 
DIS   (2004-05-31 22:43) [9]

ладно пусть будет без настроек.



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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
1-1085997737
Xmen
2004-05-31 14:02
2004.06.13
TSringList


1-1085895664
MadAngel
2004-05-30 09:41
2004.06.13
Инфо о файле


4-1084094478
Alexander Likhachev
2004-05-09 13:21
2004.06.13
Доступ к закрытым веткам в рестре W2K


1-1085818423
BDRON
2004-05-29 12:13
2004.06.13
reset для файла на CD-ROM


4-1083416802
Hawk
2004-05-01 17:06
2004.06.13
Перехват сообщения из окна чужого приложения