C:\Sysinternals\PsExec.exe -i -u "nt authority\network service" cmd.exe

      'печатаем через printto на тек. принтер
      'lReturn = ShellExecute(0, "printto", in_file, CStr(Chr(34) & cur_printer & Chr(34)), 0, SW_SHOWNORMAL)
      'If lReturn <= 32 Then 'ошибка printto
      'If (ShellExecute_Net(in_file, "printto", _
      ' Chr(34) & cur_printer & Chr(34), , ProcessWindowStyle.Normal)) = False Then 'ошибка printto
      If (ShellExecute_Wait_Net(in_file, "printto", _
       Chr(34) & cur_printer & Chr(34), , ProcessWindowStyle.Normal)) = False Then 'ошибка printto
        MsgBox("Printto failed")
        'rundll32.exe shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"
        Try
          ImageView_PrintTo(IntPtr.Zero, IntPtr.Zero, _
           "/pt " & _
           Chr(34) & in_file & Chr(34) & " " & _
           Chr(34) & cur_printer & Chr(34), _
           0)
          MsgBox("ImageView_PrintTo_ok")
        Catch
          'например при отсутствии shimgvw.dll по каким-то причинам
          MsgBox(Err.Description)
        End Try
      End If

  Public Declare Unicode Function ImageView_PrintTo Lib "shimgvw.dll" Alias "ImageView_PrintToW" _
   (ByVal hwnd As IntPtr, ByVal hinst As IntPtr, ByVal lpszCmdLine As String, ByVal nCmdShow As Integer) As Integer

   For Each p As String In PrinterSettings.InstalledPrinters
      MsgBox(p)
    Next

    Try
      Shell_Net("rundll32", "printui.dll,PrintUIEntry /k /n " & Chr(34) & "My Printer" & Chr(34), ProcessWindowStyle.Normal)
    Catch
    End Try

rundll32.exe shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"

    Shell_Net("rundll32", "shimgvw.dll,ImageView_Fullscreen " & IO.Path.Combine(Application.StartupPath, "test.tif"), ProcessWindowStyle.Normal)

 Dim WithEvents pd As PrintDocument
  Dim m_mfi As cMultiFrameImage
  Dim nPage As Integer = 1 ' номер тек. страницы
  Dim isTiff As Boolean

  Private Function PrintFile(ByVal file_name As String, ByVal printer_name As String) As Boolean
    ' file_name - имя многостраничного файла для печати
    ' printer_name - имя принтера
    ' ориентация, разрешение принтера и т.п. -берется из дефолтных настроек (для данного аккаунта)

    isTiff = False
    Try
      If UCase(IO.Path.GetExtension(file_name)) = ".TIF" Then isTiff = True
    Catch
    End Try

    PrintFile = False 'печать не удалась
    m_mfi = New cMultiFrameImage
    m_mfi.LoadFromFile(file_name)
    If m_mfi.FrameCount > 0 Then
      pd = New PrintDocument
      Try
        nPage = 1 'тек. страница =1
        pd.PrinterSettings.PrinterName = printer_name
        pd.DocumentName = IO.Path.GetFileNameWithoutExtension(file_name) 'отображается в окне печати
        '!!!иметь ввиду, при печати в панели задач по дефолту отображается стандатный значок WinForm (под Network Service пофиг)
        pd.Print()
        PrintFile = True 'печать удалась
      Catch ex As Exception
        'Debug.Print("Failed to print the document: " & ex.ToString)
      End Try
      pd.Dispose()
    End If
    m_mfi.Clear() 'отпускаем отображаемый объект
    nPage = 1 'сбрасываем счетчик страниц
  End Function

  Private Sub pd_PrintPage(sender As Object, e As PrintPageEventArgs) Handles pd.PrintPage
    'm_mfi.Frame(nPage) - это Bitmap, nPage -тек.страница многостраничного файла
    'если не мудрить с масштабированием/позиционированием картинки, то простейший вариант:
    'e.Graphics.DrawImage(m_mfi.Frame(nPage), e.Graphics.VisibleClipBounds)

    Dim Rf As RectangleF = e.Graphics.VisibleClipBounds
    'Debug.Print(".Width=" & Rf.Width & ";.Height=" & Rf.Height)

    Dim wSource As Single = CType(m_mfi.FrameWidth(nPage), Single) 'ширина источника
    Dim hSource As Single = CType(m_mfi.FrameHeight(nPage), Single) 'высота источника
    If isTiff AndAlso IsLowQualityTiff(m_mfi.HorizontalResolution, m_mfi.VerticalResolution) Then
      hSource = hSource * 2 'tiff 204x98 сжат по высоте в 2 раза (частный случай)
    End If
    'изображение должно максимально влезть в область печати, при этом сохранить пропорциональность
    'пересчитываем эффективную область
    ReCalculateRectangle(Rf, wSource, hSource)
    'Debug.Print(".Width=" & Rf.Width & ";.Height=" & Rf.Height)

    'печатаем в эту область
    e.Graphics.DrawImage(m_mfi.Frame(nPage), Rf)

    nPage = nPage + 1
    If nPage > m_mfi.FrameCount Then 'm_mfi.FrameCount - крайняя страница
      e.HasMorePages = False
    Else
      e.HasMorePages = True
    End If
  End Sub

  Private Sub ReCalculateRectangle(ByRef RF As RectangleF, ByVal wSource As Single, ByVal hSource As Single)
    'wSource - исх. ширина источника, hSource - исх. высота источника
    Dim wDest As Single = RF.Width 'ширина прямоугольника куда надо вписать
    Dim hDest As Single = RF.Height 'высота прямоугольника, куда надо вписать

    'попытаемся вписать в ширину wDest
    'смотрим куда попадет высота при сохранении пропорций
    Dim hEff As Single = wDest * (hSource / wSource)
    If hEff > hDest Then 'не попали, вышли за нижнюю границу
      'вписываем в высоту wDest
      'вычисляем ширину эффективной области
      RF.Width = hDest * (wSource / hSource)
    Else 'ура, попали
      RF.Height = hEff 'высота эффективной области
    End If
  End Sub

  Private Function IsLowQualityTiff(ByVal HorizontalResolution As Single, _
   ByVal VerticalResolution As Single) As Boolean '204x98, он сжат по высоте вдвое
    If (HorizontalResolution > 190) And (HorizontalResolution < 210) And _
     (VerticalResolution < 110) And (VerticalResolution > 90) Then
      Return True
    Else
      Return False
    End If
  End Function