Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как распечатать TXT файл из VB? Добавлено: 01.11.02 14:48  

Автор вопроса:  wishUwerehere

Как распечатать TXT файл из VB?

 

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #1 		Добавлено: 01.11.02 15:11

Close #1
Open App.Path & "\FileName" For Binary As #1
LecLength = LOF(1)
Lec$ = String$(LecLength, " ")
Get #1, 1, Lec$
Close #1

ToPrint=Split(Lec$)

For Stp=0 to Ubound(ToPrint)

printer.print ToPrint(Stp)

next Stp

Ответить

Номер ответа: 2
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #2 		Добавлено: 01.11.02 15:12

Close #1
Open App.Path & "\FileName" For Binary As #1
LecLength = LOF(1)
Lec$ = String$(LecLength, " ")
Get #1, 1, Lec$
Close #1

ToPrint=Split(Lec$,vbcrlf)

For Stp=0 to Ubound(ToPrint)

printer.print ToPrint(Stp)

next Stp

Ответить

Номер ответа: 3
Автор ответа:
 boevik



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
  Web-сайт: www.hypertech.ru
 Профиль | | #3 		Добавлено: 03.11.02 08:58

ShellExecute:

 

ShellExecute(handle, "print", "c:\myfile.txt", NULL, NULL, SW_HIDE)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам