Печать!

← →
serko (2004-11-30 23:44) [0]

Как программно установить чтобы печаталось на АЛЬБОМНОЙ страничке а не на КНИЖНОЙ (по умолчанию)! Заранее спасибо!

← →
Rem © (2004-12-01 02:42) [1]

Orientation := poLandscape;

:-P

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

← →
GanibalLector © (2004-12-01 02:59) [2]

Лови подарок :
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;

← →
GanibalLector © (2004-12-01 03:02) [3]

кстати,согласен с Rem © [1] по-поводу облома.

← →
serko (2004-12-01 19:44) [4]

Я вообще то буду печатать ehlib через PrintDbGrideh! Я специально не писал этого так как думал это вопрос будет не для этой конференции. А в Базах я задавал такой вопрос но там ниче не отвечают! Вы уж извените если что не так! Пример Rem подойдет для моего случая?

← →
serko (2004-12-05 21:52) [5]

Скажите что нибудь!

← →
GanibalLector © (2004-12-06 02:59) [6]

а что-тебе сказать???научись вопросы задавать правильно и все.Скажи мне,мой друг,на кой я терял время и писал тебе то что в [2]???

← →
Fay © (2004-12-06 09:52) [7]

2 GanibalLector © (01.12.04 02:59) [2]
IMHO, Вам тоже имеет смысл подумать на эту тему 8)

← →
GanibalLector © (2004-12-07 01:30) [8]

2 Fay
>IMHO, Вам тоже имеет смысл подумать на эту тему
Ну-ну...и где ж я по Вашему лажанулся?Сабж пожалуйста!
Более того,в моих вопросах Ваших ответов нет...как это ни странно.

← →
Zacho © (2004-12-07 01:47) [9]

serko (01.12.04 19:44) [4]

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

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

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

> [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;

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

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

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

← →
serko (2004-12-07 23:23) [13]

Спасибо большое Zacho! Все работает!

Печать! Найти похожие ветки