| |
|
|
| | А есть способ - без открытия файла, отправить его на печать?
Файл формата - ххх.RTF | |
| |
| |
| |
|
|
| | как то так
Function p()
Dim w As New Word.Application
w.Visible = False
w.ChangeFileOpenDirectory "D:\"
w.Documents.Open filename:="2.rtf", ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
w.ActiveDocument.PrintOut
w.ActiveWindow.Close
w.Quit
End Function
|
| |
| |
| |
| |
|
|
| |
ааа  | |
| |
| |
| |
|
|
| | так не знаю) узнаеш скожи | |
| |
| |
| |
|
|
| | http://www.codenet.ru/progr/vbasic/rtf.php | |
| |
| |
| |
|
|
| |
cmd /c type <FILENAME> > PRN
|
| |
| |
| |
|
|
|
|
| |
|
|
| | файлы можно не создавать.
Поместить а форму элемент управления Richtextbox - сформироварть в нём документ и отправить на печать.
========================================================
так же не открывая файла можно считать из него данные в Richtextbox и затем отправить всё на печать.
====================================================================
Можно считать всё в отчёт и не открывая отчётв - отправить его на печать
==========================
можно считать данные прямо на форму , форма белого цвета и напечатать форму.
===========================
можно можно...... если нужно  | |
| |
| |
|
|
