> 1) Есть на форме Grid с таблицей. Таблица с разными полями также и с
> Мемо полем. В Мемо находиться текстовый файл. В событии Click Grida
> получаю значение Pole1 (наприрмер: standart12) выполняется процедура
> (Procedure standart12) и обрабатываю Мемо поле текущей записи выгружая в
> текстовый файл proba.txt.
> При первой попытке получается, а при второй выдает сообщение ”File
> ‘standart12.prg’ does not exist.”. Процедуры находятся в стартовом файле.
> Что-то я пропустил?


Чего то я ничего не понял. какая кнопка, какая переменная???

Откуда береться процедура??? Что она из себя представляет???

Могу только предположить, что при выгрузке текстового файла меняется текущая
директория, в которой файла ‘standart12.prg’ просто нет, а тот
первоначальный он найти не может, потому что не выполнен set path


> 2) И вот таким кодом даю на печать.
> LOCAL loWord,loDoc
> loWord=createobject('WORD.APPLICATION')
> loDoc=m.loWord.Documents.add('d:\work\proba.txt')
> With loDoc.PageSetup
> .TopMargin = 30
> .BottomMargin = 30
> .LeftMargin = 30
> .RightMargin = 30
> EndWith
> m.loWord.Selection.WholeStory
> m.loWord.Selection.Font.Name = "Courier New"
> m.loWord.Selection.Font.Size = 8
> loDoc.SaveAS("D:\work\proba1.txt")
> m.loWord.quit
А зачем закрывать и создавать заного ???

> loWord=createobject('WORD.APPLICATION')
> loDoc=m.loWord.Documents.open('d:\work\proba1.txt')
> loDoc.printout
> m.loWord.quit

> Мне кажется это примитивный способ. Есть какой нибудь другой метод?
Конечно есть. Я вот даже не знаю, более примитивный способ показывать или
нет??? А то может ...

TYPE ('d:\work\proba.txt') TO PRINTER


Posted via ActualForum NNTP Server 1.4