Главная страница
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.039 c
14-1085837059
AlexG
2004-05-29 17:24
2004.06.13
Запрет редактирования ячеек в Excel...


1-1085818204
Александр
2004-05-29 12:10
2004.06.13
"Canvas Doesn t allow drawing"


1-1086188730
vvvaaa
2004-06-02 19:05
2004.06.13
Как создать папку


8-1081005582
новичок_из_сыктывкара
2004-04-03 19:19
2004.06.13
изменяя положение TTrackBar...


14-1085206385
AlexG
2004-05-22 10:13
2004.06.13
Intel и AMD.