printWin for Xailer, Win32prn, Fivewin, Minigui...

function main()
   teste2()
   return nil

function test2()
   USE CLIENTE SHARED NEW
   // Mesma estrutura para todos providers: Fivewin, Xailer, Win32prn, HMG, Minigui, ooHG...
   with object TPrintWP():new()         // instance of PrintWin for Win32prn
      if :startDoc()                    // Inicio/abre documento
         dbGoTop()
         do while !EOF()
            :textOutLn( FIELD->CODIGO, FIELD->DESCRICAO, FIELD->VRUNIT, FIELD->DATA )

            DBSkip()
         enddo

         :endDoc()                      // Finaliza o documento e imprime na impressora.
      endif
                                        // Win32prn não possui preview e rotação de texto.
   end with
   DBCloseAll()
   return nil

function teste()
   // Mesma estrutura para todos providers: Fivewin, Xailer, Win32prn, HMG, Minigui, ooHG...
   with object TPrintHMG():new() // instance of PrintWin for HMG
      /* Opcional:
      :cPrinterName:=
      :lPreview    :=
      :nCopies     :=
      :nPaperSize  :=
      ...
      */
      if :startDoc()
         :startPage()
         :say( 25, 20, 'RECIBO', 30, PCLR_RED, .t. ) // nRow, nCol, nFontSize, uColor, lBold
         :textOutLn( 'FACIL ESCRITA', DATE(), 13.55) // Escreve na linha corrente e avança linha

         :startPage() // controle automático
         :drawImage( '..\imagem3.bmp', 50, 20, 100)  // File, row, col, width, height
         :say( 25, 20, 'OUTRA PÁGINA' )

         :loadFile( 'TEST.PRN' )                     // +páginas e conversão relatório (formatação completa)
         :endDoc() // Preview, impressora (ou PDF: Fivewin, PageScript)

      endif
   end with
   return nil