ShellExecute  0 , "printto", FileName, Chr( 34 ) & PrinterName & Chr( 34 ),  0 , SW_SHOWNORMAL

Private Type DEVMODE
...
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
.......
    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
        
        lpDevMode = GlobalLock(the_PrintDlg.hDevMode)
        CopyMemory the_DevMode, ByVal lpDevMode, Len(the_DevMode)
        bReturn = GlobalUnlock(the_PrintDlg.hDevMode)
        GlobalFree the_PrintDlg.hDevMode
        
        MsgBox LongPrinterName & vbCrLf & _
          "dmCopies=" & the_DevMode.dmCopies & vbCrLf & _
          "dmOrientation=" & the_DevMode.dmOrientation & vbCrLf & _
          "dmPrintQuality=" & the_DevMode.dmPrintQuality & vbCrLf & _
          "dmYResolution=" & the_DevMode.dmYResolution & vbCrLf & _
          "dmPaperSize=" & the_DevMode.dmPaperSize
          
        ShellExecute  0 , "printto", App.Path & "\test.tif", CStr(Chr( 34 ) & LongPrinterName & Chr( 34 )),  0 , SW_SHOWNORMAL