Текущий архив: 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.035 c
