|
Просмотр текста только на чтение и печать
|
|||
---|---|---|---|
#18+
Доброго дня! Имеется текстовый файл.Пользователь смотрит его в нередактируемом Editbox. Далее нужно этот текстовый файл просто отправить на печать. Печать в лоб из файла не получается. Печатает только из репорта или винды. Принтер не расшаривается. Прога будет ставиться на неизвестный комп и как там принтер будет выбираться тоже непонятно. Вот думаю можно ли его быстро залить в репорт фокспро как текст огромной длины и оттуда напечатать? Подскажите куда копать? ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2015, 15:33 |
|
Просмотр текста только на чтение и печать
|
|||
---|---|---|---|
#18+
Как вариант: перегнать файл в DBF где одна строка текста - одна запись. Дальше выводить репортом. Чтобы было ровно - взять моноширинный шрифт (например Courier). Другой вариант: использовать MS Word или Опен-офис. Можно еще через браузер попробовать. ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2015, 15:41 |
|
Просмотр текста только на чтение и печать
|
|||
---|---|---|---|
#18+
Можно еще попробовать заливать в мемо-поле одна запись - один абзац. А у поля репорта выставить авто-расширение по высоте. ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2015, 15:43 |
|
Просмотр текста только на чтение и печать
|
|||
---|---|---|---|
#18+
Хочу в репорт,но не могу разобраться .. одна запись помещается на одной странице,как влепить всё в одну-две страницы отчета? ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2015, 16:03 |
|
Просмотр текста только на чтение и печать
|
|||
---|---|---|---|
#18+
Можно использовать системные настройки. Мной двно используется такой способ просмтора и печати текстовых файлов. Вот пример процедуры, в качестве параметра в него передайтся путь и имя файла PROCEDURE ViewSystemFile PARAMETERS cNameFileStr IF PARAMETERS() = 0 cNameFileStr = "" ENDIF IF FILE(cNameFileStr) DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, ; STRING cOperation, ; STRING cFileName, ; STRING cParameters, ; STRING cDirectory, ; INTEGER nShowWindow Mytext = ShellExecute(0,"Open",cNameFileStr,"","",4) ELSE = MESSAGEBOX("Файл не найден или не создан." + CHR(13) + "..."+cNameFileStr ,0+48+0,"Файл") ENDIF Таким образом из фокса открывается любой файл, при этом он берет настройки из реестра. Если у вас расширение TXT, то он его и откроет в блокноте. А из любого текстового редактора есть хорошие функции печати. ... |
|||
:
Нравится:
Не нравится:
|
|||
18.08.2015, 16:37 |
|
|
start [/forum/topic.php?fid=41&msg=39031776&tid=1582285]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
29ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
52ms |
get tp. blocked users: |
2ms |
others: | 274ms |
total: | 405ms |
0 / 0 |