Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

помогите с отчетом   Найти похожие ветки 

 
Катерина   (2001-12-24 08:15) [0]

Скажите пожалуйста, как программно в Delphi задать параметр страницы "Альбомная" в Word-ом отчете


 
gek   (2001-12-24 08:40) [1]

Елки-моталки ну до меня не доходит чего люди огород городят.
Есть QR, ну что велосипед изобретать. Если с WD работать, так это проверять надо установлен он или нет, причем на каждой машине. Ну и зачем справшивается, а?


 
Bizon ©   (2001-12-24 08:53) [2]

Посмотри, может что-нибудьнтересное найдешь.
А альбомная страница - жирным текстом.
procedure TForm1.fsBitBtn7Click(Sender: TObject);
var i,j:Integer;
Param1,Param2,Param3: OleVariant;
begin
try
WordApplication1.Connect;
except
On EOleSysError do begin
Application.MessageBox("MS Word not found","Error",MB_OK+MB_ICONEXCLAMATION);
Abort;
end;
end;
WordApplication1.Options.CheckSpellingAsYouType := false;
WordApplication1.Options.CheckGrammarAsYouType := false;
WordApplication1.Documents.Add(EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
with WordApplication1.ActiveDocument.PageSetup do
begin
Orientation := wdOrientLandscape; TopMargin:=90;
BottomMargin:=90;
LeftMargin:=60;
RightMargin:=60;
end;
WordDocument1.AutoHyphenation := True;
WordDocument1.HyphenateCaps := True;
ClipBoard.Assign(Form5.QRImage1.Picture);
WordApplication1.Selection.Paste;
Param1:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Param1);

WordApplication1.Selection.Insertafter(#13+#13+#13);
WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;
Param1:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Param1);
WordApplication1.Selection.Insertafter("


 
DemonK   (2001-12-24 10:21) [3]

Gek а ты с QR ни разу проблем не встречал? Например с принтерами от HP?


 
gek   (2001-12-24 10:32) [4]

Ну были проблемы с русскими шрифтами именно на HP, но все разрешимо.
Я все к тому, что смысла не вижу использовать WD там, где можно обойтись без него


 
som   (2001-12-24 10:52) [5]

WordDocument1.PageSetup.Orientation := wdOrientLandscape;



Страницы: 1 вся ветка

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-42513
Aleksey_K
2001-12-25 14:19
2002.01.14
Help !!!


4-42609
McSimm
2001-11-13 12:55
2002.01.14
Писать в запрещенные адреса памяти.


7-42585
fsp
2001-09-29 21:15
2002.01.14
sender:Tobject


1-42409
Елена
2001-12-24 00:40
2002.01.14
Help!


3-42383
Serega__2
2001-12-13 12:09
2002.01.14
Подскажите плз каким образом перенести структуру и данные базы под MSSQL7 с одной машины на другую?