Private Sub Command2_Click()
    ImgAdmin1.Image = "c:\111\TEST001.TIF"  'TEST001-это 1-я страница
    ImgAdmin1.Insert "c:\111\TEST002.TIF",  1 ,  2 ,  1  'TEST002-это 2-я страница
    ImgEdit1.Image = ImgAdmin1.Image
    ImgEdit1.Display
    ImgEdit1.PrintImage  1 ,  2 ,  1 , False, "Fax", , "C:\111\auto.tif" ' а это требуемый факс-2 страницы, но без гарантий, что он 200х100
End Sub

     Private 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
    
ShellExecute  0 &, "Print", App.Path & "\test.doc", "", "", vbNormalFocus

Option Explicit

      Private Type DOCINFO
          pDocName As String
          pOutputFile As String
          pDatatype As String
      End Type

      Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long) As Long
      Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long) As Long
      Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long) As Long
      Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
         "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
          ByVal pDefault As Long) As Long
      Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
         "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
         pDocInfo As DOCINFO) As Long
      Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long) As Long
      Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
         hPrinter As Long, pBuf As Any, ByVal cdBuf As Long,  _
         pcWritten As Long) As Long

      Private Sub Command1_Click()
          Dim lhPrinter As Long
          Dim lReturn As Long
          Dim lpcWritten As Long
          Dim lDoc As Long
          Dim sWrittenData As String
          Dim MyDocInfo As DOCINFO
          lReturn = OpenPrinter(Printer.DeviceName, lhPrinter,  0 )
          If lReturn =  0  Then
              MsgBox "The Printer Name you typed wasn't recognized."
              Exit Sub
          End If
          MyDocInfo.pDocName = "AAAAAA"
          MyDocInfo.pOutputFile = vbNullString
          MyDocInfo.pDatatype = vbNullString
          lDoc = StartDocPrinter(lhPrinter,  1 , MyDocInfo)
          Call StartPagePrinter(lhPrinter)
          sWrittenData = "How's that for Magic !!!!" & vbFormFeed
          lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _
             Len(sWrittenData), lpcWritten)
          lReturn = EndPagePrinter(lhPrinter)
          lReturn = EndDocPrinter(lhPrinter)
          lReturn = ClosePrinter(lhPrinter)
      End Sub

case  100 :
     div =  6 
     bmp_height =  1191 ; // 1100 
     bmp_width =  1728 ; // 800 
     //bits = new unsigned char bmp_height*bmp_width* 3 ];
     break;
case  200 :
    div =  3 ;
    bmp_height =  2343 ; // 2300 ;
    bmp_width =  1728 ; // 1640 ;
   //bits = (unsigned char*)bits_200dpi;
   break;

Option Explicit

      ' Constants for DEVMODE.
      Private Const CCHDEVICENAME =  32 
      Private Const CCHFORMNAME =  32 

      ' Constants for DocumentProperties() call.
      Private Const DM_MODIFY =  8 
      Private Const DM_IN_BUFFER = DM_MODIFY
      Private Const DM_COPY =  2 
      Private Const DM_OUT_BUFFER = DM_COPY

      ' Constants for Orientation.
      Private Const DMORIENT_PORTRAIT =  1 
      Private Const DMORIENT_LANDSCAPE =  2 

      ' Constants for printer bin.
      Private Const DMBIN_UPPER =  1 
      Private Const DMBIN_LOWER =  2 

      ' Constants for DMFIELDS (which fields did you change?).
      Private Const DM_ORIENTATION = &H1
      Private Const DM_DEFAULTSOURCE = &H200

      Private Type DOCINFO
          cbSize As Long
          lpszDocName As String
          lpszOutput As String
      End Type

      Private Type DEVMODE
          dmDeviceName( 1  To CCHDEVICENAME) As Byte
          dmSpecVersion As Integer
          dmDriverVersion As Integer
          dmSize As Integer
          dmDriverExtra As Integer
          dmFields As Long
          dmOrientation As Integer
          dmPaperSize As Integer
          dmPaperLength As Integer
          dmPaperWidth As Integer
          dmScale As Integer
          dmCopies As Integer
          dmDefaultSource As Integer
          dmPrintQuality As Integer
          dmColor As Integer
          dmDuplex As Integer
          dmYResolution As Integer
          dmTTOption As Integer
          dmCollate As Integer
          dmFormName( 1  To CCHFORMNAME) As Byte
          dmUnusedPadding As Integer
          dmBitsPerPel As Integer
          dmPelsWidth As Long
          dmPelsHeight As Long
          dmDisplayFlags As Long
          dmDisplayFrequency As Long
      End Type

      Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
          "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As _
          Long, ByVal pDefault As Long) As Long

      Private Declare Function ClosePrinter Lib "winspool.drv" _
          (ByVal hPrinter As Long) As Long

      Private Declare Function DocumentProperties Lib "winspool.drv" _
          Alias "DocumentPropertiesA" (ByVal hwnd As Long, _
          ByVal hPrinter As Long, ByVal pDeviceName As String, _
          pDevModeOutput As Any, pDevModeInput As Any, _
          ByVal fMode As Long) As Long

      Private Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" _
          (ByVal hdc As Long, lpInitData As Any) As Long

      Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" _
          (ByVal lpDriverName As String, ByVal lpDeviceName As String, _
          ByVal lpOutput As Long, ByVal lpInitData As Long) As Long

      Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) _
          As Long

      Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
          (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, _
          ByVal lpString As String, ByVal nCount As Long) As Boolean

      Private Declare Function StartDoc Lib "gdi32" Alias "StartDocA" _
          (ByVal hdc As Long, lpdi As DOCINFO) As Long

      Private Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) _
          As Long

      Private Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) _
          As Long

      Private Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) _
          As Long

      Private Declare Function GetLastError Lib "kernel32" () As Long

      Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
          (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
          
      Private 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
 

     Private Sub Command1_Click()
          Dim di As DOCINFO
          Dim hPrintDc As Long
          Dim Ret As Long
          Dim LastError As Long
          Dim tx$

          tx$ = "Hello World!"
          hPrintDc = CreateDC(Printer.DriverName, Printer.DeviceName,  0 ,  0 )
          di.cbSize = Len(di)   ' 20
          di.lpszDocName = "VB Test Document"    ' Optional
          di.lpszOutput = App.Path & "\test.tif"

          Ret = StartDoc(hPrintDc, di)
          Ret = StartPage(hPrintDc)
          Ret = TextOut(hPrintDc,  1000 ,  1000 , tx$, Len(tx$))
          Ret = EndPage(hPrintDc)
          Ret = EndDoc(hPrintDc)
          Ret = DeleteDC(hPrintDc)
      End Sub

Dim WithEvents g_objFaxServer As FAXCOMEXLib.FaxServer
Dim collFaxOutgoingJobs As FAXCOMEXLib.FaxOutgoingJobs
Dim objFaxOutgoingJob As FAXCOMEXLib.FaxOutgoingJob

Private Sub Form_Load()
   Set g_objFaxServer = New FAXCOMEXLib.FaxServer
   'Connect to the local fax server.
   g_objFaxServer.Connect ("")
   'Now register for the desired events.
   g_objFaxServer.ListenToServerEvents fsetFXSSVC_ENDED + fsetOUT_QUEUE
End Sub
Private Sub g_objFaxServer_OnOutgoingJobAdded(ByVal pFaxServer As FAXCOMEXLib.IFaxServer, ByVal bstrJobId As String)
    SendRealFax bstrJobId
End Sub
Private Sub SendRealFax(jobID As String)
    Dim FaxFile As String
    Dim FaxNumber As String
    FaxFile = App.Path & "\faxout\" & jobID & ".tif"
    'Get the collection of jobs in the outgoing queue
    Set collFaxOutgoingJobs = g_objFaxServer.Folders.OutgoingQueue.GetJobs
    For Each objFaxOutgoingJob In collFaxOutgoingJobs
        If (objFaxOutgoingJob.Id = jobID) Then
            'copy correct tiff file to our server from Microsoft
            objFaxOutgoingJob.CopyTiff FaxFile
            'copy fax number
            FaxNumber = objFaxOutgoingJob.Recipient.FaxNumber
            'delete microsoft outgoing job
            objFaxOutgoingJob.Cancel
            'send our tiff to FaxNumber
            Shell "sendfax.bat " & Chr( 34 ) & FaxFile & Chr( 34 ) & " " & FaxNumber
            Exit For
        End If
    Next
    Set collFaxOutgoingJobs = Nothing
End Sub
Function SendFaxAuto(Recips As String, CmpNms As String, FaxFile As String) As Variant
'We can create outgoing job from any printable file format, no dialog boxes
' Recips - номер факса
' CmpNms - имя получателя
' FaxFile - путь к файлу факса;
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objSender As FaxSender
    'Set the fax body
    objFaxDocument.Body = FaxFile
    'Add the recipient with the fax number Recips
    objFaxDocument.Recipients.Add Recips, CmpNms
    'Submit the document to the connected fax server
    'and get back the job ID.
    SendFaxAuto = objFaxDocument.ConnectedSubmit(g_objFaxServer)
End Function

Private Sub CommandSend_Click()
    'create job to send file with Path=TextNumber.Text to number=TextFile.Text
    SendFaxAuto TextNumber.Text, "ToVasja", TextFile.Text
End Sub