printto.exe "ДОКУМЕНТ" "bla-bla-bla" > printrezult.txt

Function ExecCmd(ByVal cmdline As String)

Private Sub Command4_Click()
    Dim strPrinterName As String
    Dim strFile As String
    Dim res as long
    'strPrinterName = """" + "Bla bla bla" + """"
    'или (название принтера от греха подальше в кавычки)
    strPrinterName = Chr( 34 ) & "Bla bla bla" & Chr( 34 )
    strFile = ДОКУМЕНТ
    res = ShellExecute( 0 , "printto", strFile, strPrinterName,  0 , SW_HIDE)
    'Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise.
    If res <=  32  Then
        MsgBox "Failed. Error code: " & RaiseAPIError
    Else
        MsgBox "ok"
    End If
End Sub

  Public Const SW_HIDE =  0 
  Public Const SW_SHOWNORMAL =  1 
  Public Const SW_SHOWMINIMIZED =  2 
  Public Const SW_SHOWMAXIMIZED =  3 
  Public Const SW_SHOWNOACTIVATE =  4 
  Public Const SW_SHOW =  5 
  Public Const SW_MINIMIZE =  6 
  Public Const SW_SHOWMINNOACTIVE =  7 
  Public Const SW_SHOWNA =  8 
  Public Const SW_RESTORE =  9 
  Public Const SW_SHOWDEFAULT =  10 
 
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

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 Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, _
lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, _
ByVal nSize As Long, Arguments As Long) As Long

Public Function RaiseAPIError() As String
    Dim ErrorMsg As String, ErrNum As Long
    ErrNum = Err.LastDllError
    ErrorMsg = String( 256 ,  0 )
    ErrorMsg = Left$(ErrorMsg, FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or _
FORMAT_MESSAGE_IGNORE_INSERTS,  0 , ErrNum,  0 &, ErrorMsg, Len(ErrorMsg), ByVal  0 ))
    If Mid(ErrorMsg, Len(ErrorMsg) -  1 ) = vbCrLf Then
        ErrorMsg = Mid(ErrorMsg,  1 , Len(ErrorMsg) -  2 )
    End If
    RaiseAPIError = ErrNum & " (" & ErrorMsg & ")"
End Function