Да, с txt файлом нет проблем.
А может кто подскажет идею, как без OLE печатать pdf-файлы на принтер прямо из VB?

Может кому будет интересно .. сделал это через shell. С ОЛЕ долюбаться дольше.


Нужно обьявить функцию API где-нибудь в главном модуле

Public Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal Hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1


А потом можно вызывать ShellExecute и делать Open или Print чего хош.

Тута используется флаг Открывать pdf или Сразу печатать.

Function StartFile(strNameFile As String, blPreview As Boolean)
Dim intResult As Integer

If blPreview Then
'preview
intResult = ShellExecute(Me.Hwnd, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
Else
'print
intResult = ShellExecute(Me.Hwnd, "print", strNameFile, 0, 0, SW_SHOWNORMAL)
End If
If intResult = 31 Then
MsgBox "Незарегестрированный тип файла " & UCase(Right(strNameFile, 3)), vbExclamation, "ERROR XXXX"
WriteLog "Незарегестрированный тип файла " & UCase(Right(strNameFile, 3))
End If
End Function