PC Toledo

Código: Selecionar todos

SET DEVICE TO PRINT
SET PRINT ON
SET PRINTER TO C:\ESTOQUE\arq 
? CHR(27) + CHR(33) + CHR(01)
? "LINHA 1"
? "LINHA 2"
? "LINHA 3"
cImpressora := GetDefaultPrinter()           // Pego a Impressora Padrão
PrintFileRaw(cImpressora, arq, [Teste]) 

Código: Selecionar todos

FUNCTION TESTE_BEMA()
   PRIVATE TXTARQ, WLINHA, nTAMANHO
   PRIVATE AAA:=[C:\CUPON.PRN]
   PRIVATE ARQTESTE:=FCREATE( AAA, 0 )
   //TXT01:=chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)              // inicializa o ESC BEMA
   //TXT02:=chr(27) + chr(87) + chr(1) + "TESTE Medicamentos" + chr(27) + chr(87) + chr(0)  // EXPANDIDO
   //TXT03:=chr(15) + '**************************************************'+ chr(18)          // CONDENSADO/NORMAL
   INICIO  :=chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)
   EXPANDE :=chr(27) + chr(87) + chr(1)
   cEXPANDE:=chr(27) + chr(87) + chr(0)
   CONDENSA:=chr(15)
   NORMAL  :=CHR(18)
   NEGRITO :=chr(27) + chr(69)
   cNEGRITO:=chr(27) + chr(70)
   CORTA   :=CHR(27)+CHR(119)
   TXT01:=INICIO
   TXT02:=EXPANDE + "TESTE Medicamentos" + cEXPANDE
   TXT03:=CONDENSA+"12345678901234567890123456789012345678901234567890123456789012345"+NORMAL // 65 CRTS
   TXT04:='12345678901234567890123456789012345678901234567890'                                // 50 CRTS
   TXT05:=chr(15) +'modo condensado'+ CHR(18)
   TXT06:=NEGRITO + "Modo Negrito"                               //+ chr(27) + chr(70) CANCELA NEGRITO
   TXT07:= EXPANDE + "1234567890123456789012345" + cEXPANDE      // 25 CRTS
   TXT08:='1234567890123456789012345678901234567890' + cNEGRITO  //+ chr(27) + chr(70)
   TXT09:='Teste teste teste'
   TXT10:='Teste teste teste teste'
   TXT11:=CORTA   // CORTE DO PAPEL
   FCLOSE(ARQTESTE)
   TXTARQ:=FOPEN( AAA, 2 )
   A:=1
   DO WHILE A <= 11
      xTXT   := [TXT]+ALLTRIM(STRZERO(A,2))
      WLINHA := &xTXT+CHR(13)+CHR(10)
      FSEEK ( TXTARQ, 0, 2 )
      FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
      A++
   ENDDO
   FCLOSE(ARQTESTE)
   cArquivo := AAA
   cImpressora := GetDefaultPrinter()                 // Pego a Impressora Padrão
   PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...

RETURN NIL

Código: Selecionar todos

FUNCTION PrintWin( cPrinter, cArq )
LOCAL oPrn:=Nil, aPrn:=Win_PrinterList( .T., .F. ), __nColFixed, cLinha, oElemento, lImp:=.F.

   cPrinter := hb_DefaultValue( cPrinter, Win_PrinterGetDefault() )
   cArq     := hb_DefaultValue( cArq, "" )
   
   IF Empty( cArq )
      MsgStop( "Arquivo de impressão deve ser informado", "Erro" )
      RETURN .F.
   ENDIF

   IF Empty( aPrn )
      MsgStop( "Não há impressoras instaladas", "Erro" )
      RETURN .F.
   ENDIF
   
   FOR EACH oElemento IN aPrn
      IF Upper( oElemento[1] ) = Upper( cPrinter )
         //oElemento[1] //Nome da impressora
         //oElemento[2] //Porta onde a impressora está ligada
         lImp:=.T.
      ENDIF
   NEXT
  
   IF ! lImp
      MsgStop( "Impressora " + cPrinter + " não está instalada." + hb_Eol() + "Entre em contato com o helpdesk", "Erro" )
      RETURN Nil
   ENDIF
  
   oPrn := Win_Prn():New( cPrinter )

   oPrn:FormType   := WIN_DMPAPER_USER 
   
   oPrn:PaperWidth := 3*26.4*10
   
   oPrn:Copies := 1
 
   IF ! oPrn:Create()
      MsgStop( "Não foi criado documento.", "Erro de Impressão" )
      oPrn:Destroy()
      RETURN Nil
   ENDIF
  
   IF ! oPrn:StartDoc( "DocPrint" )
      MsgStop( "Erro na Impressora.", "Erro de Impressão" )
      oPrn:Destroy()
      RETURN Nil
   ENDIF

   oPrn:SetFont( "Lucida Console", 8, 0 )

   __nColFixed := 0

    PrintCabec( .T., oPrn, hb_DirBase() + "fazenda.bmp" )
  
   FT_FUSE( cArq )
   
   DO WHILE ! FT_FEOF()
      cLinha := FT_FREADLN()
      cLinha := IF( Empty( cLinha ), " ", cLinha )
      oPrn:SetPos( __nColFixed )
      oPrn:Textout( cLinha, .T. )
      FT_FSKIP()
   ENDDO
  
   FT_FUSE()
   
   PrintCabec()

   oPrn:EndDoc()
   
   oPrn:Destroy()
   
   oPrn:=Nil

RETURN .T. 

FUNCTION PrintCabec( lInicio, oPrn, cBitFile ) 
LOCAL __nLinha := 50, __nColuna := 100, __nHandleFile, _i, I  

STATIC __oBMP
STATIC __nWidth
STATIC __nHeight

   lInicio  := hb_DefaultValue( lInicio, .F. )
   cBitFile := hb_DefaultValue( cBitFile, "" )
   
   IF lInicio

      IF ! Empty( cBitFile ) .AND. __oBMP = Nil
         fi_Initialise()
         __nHandleFile := fi_Load( FIF_BMP, cBitFile, BMP_DEFAULT )
         __nWidth      := fi_GetWidth( __nHandleFile )
         __nHeight     := fi_GetHeight( __nHandleFile )
         fi_DeInitialise()
      ENDIF

      oPrn:SetPrc( 0, 0 ) // 1, 0
      
      oPrn:SetPrc( oPrn:pRow(), 4 )

      FOR I:=1 TO 10
         oPrn:Textout( " ", .T. )
      NEXT
      
      IF ! Empty( cBitFile )
         IF hb_vfExists( cBitFile )
            IF __oBMP = Nil
               __oBMP := Win_BMP():New()
               IF !__oBMP:loadFile( cBitFile )
                  RETURN Nil 
               ENDIF
               //oBmp:Draw( oPrn, { nColuna, nLinha, nWidth, nHeight } )
               /* Note: Can also use this method to print bitmap */
               //__oBmp:Rect := { __nColuna, __nLinha, __nWidth, __nHeight }
               //oPrn:DrawBitmap( __oBmp )
            ENDIF
            __oBMP:Draw( oPrn, { __nColuna, __nLinha, __nWidth, __nHeight } )
         ENDIF
      ENDIF
   ELSE
      IF __oBMP != Nil 
         __oBMP:Destroy()
         __nWidth  := Nil
         __nHeight := Nil
         __oBMP    := Nil
      ENDIF   
   ENDIF
RETURN Nil