Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.046 c
14-1085648635
VID
2004-05-27 13:03
2004.06.13
Вставка документа в страницу Excel


1-1086205262
Igor
2004-06-02 23:41
2004.06.13
DbMemo &html.


14-1085730727
ORMADA
2004-05-28 11:52
2004.06.13
Чем енто можно качнуть ?


8-1079414422
WM.DIGGER
2004-03-16 08:20
2004.06.13
Как сграбить экран ... ?


8-1080060325
__yur__
2004-03-23 19:45
2004.06.13
Как узнать что рисунок имеет белый фон