Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Печать! [D6, WinXP]

serko © (2004-11-30 23:44:00)
Как программно установить чтобы печаталось на АЛЬБОМНОЙ страничке а не на КНИЖНОЙ (по умолчанию)! Заранее спасибо!

serko (2004-12-07 23:23:00) [1]
Спасибо большое Zacho! Все работает!

GanibalLector (2004-12-07 13:06:00) [2]

> Это как? типа если за пол-секунды успел нажать
> кнопочку печати - то молодец, если не успел, то поезд
> ушел? :-)

Тот код просто илюстрирует,что есть возможность менять параметры страницы как хочешь.Ну а если,после того сабжа у кого-то возникают вопросы,то Вы уж извините...LOL получается.

Anatoly Podgoretsky (2004-12-07 11:38:00) [3]
GanibalLector © (07.12.04 01:30) [8]
Очень лоханулся, срочно на курсы телепатов.

SergP (2004-12-07 01:48:00) [4]

> [2] GanibalLector © (01.12.04 02:59)
> Лови подарок :
>
> procedure TForm1.Button1Click(Sender: TObject);
> var WordApp :Variant;
> Doc1:OleVariant; i:integer;
> begin
> WordApp := CreateOleObject('Word.Application');
> try
> WordApp.Documents.add;
> WordApp.visible:=true;
> Doc1:=WordApp.ActiveDocument;
> for i:=1 to 6 do begin
> if Odd(i) then
> Doc1.PageSetup.Orientation := 0 else
> Doc1.PageSetup.Orientation := 1;
> sleep(500); end;
> except
> WordApp.Quit;
> end;end;

Это как? типа если за пол-секунды успел нажать кнопочку печати - то молодец, если не успел, то поезд ушел? :-)

Zacho (2004-12-07 01:47:00) [5]
serko (01.12.04 19:44) [4]

Не проверял, но должно работать:

uses PrntsEh; ... VirtualPrinter.Orientation:=poLandscape;

P.S. А самому ломы было в исходники EhLib заглянуть ?

GanibalLector (2004-12-07 01:30:00) [6]
2 Fay
>IMHO, Вам тоже имеет смысл подумать на эту тему
Ну-ну...и где ж я по Вашему лажанулся?Сабж пожалуйста!
Более того,в моих вопросах Ваших ответов нет...как это ни странно.

Fay (2004-12-06 09:52:00) [7]
2 GanibalLector © (01.12.04 02:59) [2]
IMHO, Вам тоже имеет смысл подумать на эту тему 8)

GanibalLector (2004-12-06 02:59:00) [8]
а что-тебе сказать???научись вопросы задавать правильно и все.Скажи мне,мой друг,на кой я терял время и писал тебе то что в [2]???

serko (2004-12-05 21:52:00) [9]
Скажите что нибудь!

serko (2004-12-01 19:44:00) [10]
Я вообще то буду печатать ehlib через PrintDbGrideh! Я специально не писал этого так как думал это вопрос будет не для этой конференции. А в Базах я задавал такой вопрос но там ниче не отвечают! Вы уж извените если что не так! Пример Rem подойдет для моего случая?

GanibalLector (2004-12-01 03:02:00) [11]
кстати,согласен с Rem © [1] по-поводу облома.

GanibalLector (2004-12-01 02:59:00) [12]
Лови подарок :
procedure TForm1.Button1Click(Sender: TObject); var WordApp :Variant; Doc1:OleVariant; i:integer; begin WordApp := CreateOleObject('Word.Application'); try WordApp.Documents.add; WordApp.visible:=true; Doc1:=WordApp.ActiveDocument; for i:=1 to 6 do begin if Odd(i) then Doc1.PageSetup.Orientation := 0 else Doc1.PageSetup.Orientation := 1; sleep(500); end; except WordApp.Quit; end;end;

Rem (2004-12-01 02:42:00) [13]
Orientation := poLandscape;

:-P

Вот в облом отвечать на такой вопрос! В облом, и все тут!
Неужели трудно написать по-человечески, где печатать собираетесь? В Word'е, Excel'е, QuickReport'е, на Printer.Canvas или еще где-то?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »