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

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



Память: 0.46 MB
Время: -0.994 c