Public Sub DoFilePrint(ByVal FileToPrint As String, Optional ByVal hwnd As Long = 0)
  Dim the_PrintDlg As PRINTDLG
  Dim the_DevName As DEVNAMES
  Dim lpDevName As Long
  Dim bReturn As Integer
  Dim LongPrinterName As String
  Dim lVal As Long
  
  Dim the_DevMode As DEVMODE
  Dim lpDevMode As Long

  If hwnd <> 0 Then
    the_PrintDlg.hwndOwner = hwnd
  End If
  the_PrintDlg.lStructSize = Len(the_PrintDlg)
  the_PrintDlg.Flags = PD_NOSELECTION Or PD_HIDEPRINTTOFILE Or PD_NOPAGENUMS Or PD_USEDEVMODECOPIES
  
  With the_DevName
    .wDriverOffset = 8
    .wDeviceOffset = .wDriverOffset + 1 + Len(Printer.DriverName)
    .wOutputOffset = .wDeviceOffset + 1 + Len(Printer.Port)
    .wDefault = 0
  End With
  With Printer
    the_DevName.extra = .DriverName & Chr(0) & _
     .DeviceName & Chr(0) & .Port & Chr(0)
  End With
  the_PrintDlg.hDevNames = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(the_DevName))
  lpDevName = GlobalLock(the_PrintDlg.hDevNames)
  If lpDevName > 0 Then
    CopyMemory ByVal lpDevName, the_DevName, Len(the_DevName)
    bReturn = GlobalUnlock(lpDevName)
  End If
  
  If PrintDialog(the_PrintDlg) <> 0 Then
    '
    ' Mike's amendment to handle long printer names
    CopyMemory the_DevName, ByVal lpDevName, Len(the_DevName)
    LongPrinterName = Mid$(the_DevName.extra, _
     the_DevName.wDeviceOffset - the_DevName.wDriverOffset + 1)
    LongPrinterName = Left$(LongPrinterName, _
     InStr(LongPrinterName, Chr$(0)) - 1)
        
    lpDevName = GlobalLock(the_PrintDlg.hDevNames)
    CopyMemory the_DevName, ByVal lpDevName, 45
    bReturn = GlobalUnlock(lpDevName)
    GlobalFree the_PrintDlg.hDevNames
      
    Dim lReturn As Long
    lReturn = ShellExecute(0, "printto", FileToPrint, CStr(Chr(34) & LongPrinterName & Chr(34)), 0, SW_SHOWNORMAL)
    If lReturn <= 32 Then 'ошибка printto
      'rundll32.exe shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"
      On Error Resume Next 'например при отсутствии shimgvw.dll по каким-то причинам
      ImageView_PrintTo 0, 0, _
       "/pt " & _
       Chr(34) & FileToPrint & Chr(34) & " " & _
       Chr(34) & LongPrinterName & Chr(34), _
       0
    End If
  End If
End Sub

  Dim x As Printer
  For Each x In Printers
    If x.DeviceName = "MyPrinter" Then
      IsMyPrinter = True
      Exit For
    End If
  Next