Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c