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

Печать в MS-Word   Найти похожие ветки 

← →
zrv   (2004-06-02 09:31) [0]

Подскажите кто знает в чем  проблема. Загружаю в Word файл и правлю там нужные мне символы, затем пускаю на печать и печатается сначала пустой лист, а потом уже нормальный, в предварительном просмотре показывает только один лист. Что я неправильно сделал? И еще как правильно закрыть Word без сохранения изменений, что бы он не выдавал сообщения о необходимости сохранить файл?
Кусок кода :

var ff,s1,Tr,Fal,Replace,ReplaceWith,Wrap: OleVariant;
begin
ff:="d:\arhiv\myprogram\new.rtf";
Form1.WordApplication1.Documents.Add(ff,EmptyParam,EmptyParam,EmptyParam);
Form1.WordApplication1.Visible:=false;
Wrap := wdFindContinue;
Replace := wdReplaceOne;
Tr:=True;
Fal:=False;
s1:="@134";
ReplaceWith := DateTimeToStr(Now);
Form1.WordApplication1.Selection.Find.Execute(S1,Fal,Fal,fal,Fal,Fal,Tr,Wrap,Fal,ReplaceWith,Replace,fal,fal,fal,fal);
......
......
s1:="@150";
ReplaceWith := "    ";
Form1.WordApplication1.Selection.Find.Execute(S1,Fal,Fal,fal,Fal,Fal,Tr,Wrap,Fal,ReplaceWith,Replace,fal,fal,fal,fal);
Form1.WordApplication1.PrintOut;
Form1.WordApplication1.Quit;
Form1.WordApplication1.Disconnect;

---

← →
YurikGL ©   (2004-06-02 09:42) [1]

Где-то в настройках принтера есть такая штука, как страница разделитель. Посмотри ее.

---

← →
zrv   (2004-06-02 10:28) [2]

В настройках принтера в странице разделителе ничего нет. Может это операционка XP и office XP с Delphi 7 не найдут общий язык?

---

← →
YurikGL ©   (2004-06-02 11:03) [3]

А если из ворда сам посылаешь на печать, в смысле не из твоей программы а сам текст набираешь, он тоже пустую страницу выдает или нет?

---

← →
YurikGL ©   (2004-06-02 11:08) [4]

zrv   (02.06.04 10:28) [2]

Панель управления/принтеры/твой принтер/дополнительно/страница разделитель - удали все оттедава

---

← →
zrv   (2004-06-02 11:25) [5]

Нет если из ворда то все нормально.
А вот из программы пустую страницу печатает даже если убрать: Form1.WordApplication1.PrintOut;
и оставить только:
Form1.WordApplication1.Quit;
Form1.WordApplication1.Disconnect;
т.е даже просто закрытие ворда выдает на печать пустую страницу.

---

← →
YurikGL ©   (2004-06-02 14:23) [6]

Могу лишь посоветовать комментировать строчки между Connect и disconnect и искать, какая из них ведет к такому эффекту.
Искать можно так: Сначала комментируешь первую половину кода и смотришь, потом вторую и т.д.

---

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

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



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