FiveTech Software tech support forums

         cFile := "Microsoft Print to PDF"
         #ifdef __XHARBOUR__
           oPrn := Win32Prn():new(cFile)
         #else
           oPrn := win_Prn():new(cFile)
         #endif
         oPrn:Landscape:= if(Hpapel=1,.T.,.F.)
         oPrn:FormType := 9 //FORM_A4
         oPrn:Copies   := 1
         If !oPrn:Create()
            Alert("Printer No Creada")
            return
         Else
          IF !oPrn:startDoc('Win32Prn(Dococumento Printer)')
             Alert("StartDoc() A Fallado")
             return
          Else
          Endif
         Endif


 

**************************************************
Function Imprime( cArq, tamrel ,cPrinter, cCopias)
**************************************************
local cTexto, nLinhas, nA, cLinha, oBMP
#ifdef __XHARBOUR__
 local oPrinter := win32prn():New(cPrinter)
#else
 local oPrinter := win_prn():New(cPrinter)
#endif
cText := memoread( cArq )
oPrinter:Landscape:= .F.
oPrinter:FormType:= 9
oprinter:SetPrintQuality(-1) // qualidade da impressão
oPrinter:Copies:=cCopias

IF !oPrinter:Create()
   MsgStop("ATENÇÃO !!! Não foi possivel Iniciar a Impressão, Favor Verificar se a Impressora esta Ligada.","Aviso do Sistema")
   return NIL
else
   IF !oPrinter:StartDoc("Impressao Pelo Sistema SCM")
      MsgStop("ATENÇÃO !!! Não foi possivel Iniciar a Impressão, Favor Verificar a Impressora","Aviso do Sistema")
      Return NIL
   endif

   IF File("res\logo.bmp")  // se tiver o arquivo logo.bmp dentro da mesma pasta ele vai imprimir o logo primeiro
      #ifdef __XHARBOUR__
       oBMP:= Win32BMP():new()
      #else
       oBMP:= Win_BMP():new()
      #endif
      oBmp:loadFile( "res\logo.bmp" )
      oBmp:Draw( oPrinter,  { 15,15,60,60 } )
      aTamlog := 9
   else
      aTamlog := 2
   endif

   FOR TT=1 TO aTamlog
      oPrinter:newline()
   NEXT
   //oPrinter:CharSet( 255 )

   IF TAMREL=80
      oPrinter:setfont('Courier New',,12,,,,255) // Normal
      nLines2 := 85
   ELSE
      oPrinter:SetFont("Courier New",13,{3,-50},0,.F.,.F.) // Comprimida
      nLines2 := 150
   ENDIF
   oPrinter:Bold(0) // Normal
*   oPrinter:newline() // Inicia nova linha

   nLines := mlcount( cText, nLines2 )
   for nA := 1 to nLines
      cLine := memoline( cText, nLines2, nA, 1, .F. )
      If Left(AllTrim(cLine),1)==Chr(12) //SALTO DA PAGINA
         oPrinter:NewPage()
         IF FILE("res\logo.bmp")  // se tiver o arquivo logo.bmp dentro da mesma pasta ele vai imprimir o logo primeiro
            #ifdef __XHARBOUR__
             oBMP:= Win32BMP():new()
            #else
             oBMP:= Win_BMP():new()
            #endif
            oBmp:loadFile( "res\logo.bmp" )
            oBmp:Draw( oPrinter,  { 15,15,60,60 } )
            aTamlog := 9
         else
            aTamlog := 2
         endif
      endif

      oPrinter:TextOut( cLine, .T. )
      oPrinter:Bold(0) // Normal

      if (oPrinter:MaxRow()-2 ) <= oPrinter:Prow()
         oPrinter:NewPage()
         IF FILE("res\logo.bmp")  // se tiver o arquivo logo.bmp dentro da mesma pasta ele vai imprimir o logo primeiro
            #ifdef __XHARBOUR__
             oBMP:= Win32BMP():new()
            #else
             oBMP:= Win_BMP():new()
            #endif
            oBmp:loadFile( "res\logo.bmp" )
            oBmp:Draw( oPrinter,  { 15,15,60,60 } )
            aTamlog := 9
         else
            aTamlog := 2
         endif

         FOR TT=1 TO aTamlog
            oPrinter:newline()
         NEXT
      endif
   next

   oPrinter:EndDoc()
   oPrinter:Destroy()
ENDIF
RETURN NIL