PC Toledo

Código: Selecionar todos

#define FORM_A4 9

#define PS_SOLID            0

#define RGB( nR,nG,nB )   ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) )

#define BLACK          RGB( 0x0 ,0x0 ,0x0  )
#define BLUE           RGB( 0x0 ,0x0 ,0x85 )
#define GREEN          RGB( 0x0 ,0x85,0x0  )
#define CYAN           RGB( 0x0 ,0x85,0x85 )
#define RED            RGB( 0x85,0x0 ,0x0  )
#define MAGENTA        RGB( 0x85,0x0 ,0x85 )
#define BROWN          RGB( 0x85,0x85,0x0  )
#define WHITE          RGB( 0xC6,0xC6,0xC6 )

FUNCTION Main()
  LOCAL nPrn:=1, cBMPFile:= SPACE( 40 )
  LOCAL aPrn:= GetPrinters()
  LOCAL GetList:= {}
  CLS
  IF EMPTY(aPrn)
    Alert("No printers installed - Cannot continue")
    QUIT
  ENDIF
  DO WHILE !EMPTY(nPrn)
    CLS
    @ 0,0 SAY 'Win32Prn() Class test program. Choose a printer to test'
    @ 1,0 SAY 'Bitmap file name' GET cBMPFile PICT '@!K'
    READ
    @ 2,0 TO maxRow(),maxCol()
    nPrn:= ACHOICE(3,1,maxRow()-1,maxCol()-1,aPrn,.T.,,nPrn)
    IF !EMPTY(nPrn)
        PrnTest(aPrn[nPrn], cBMPFile)
    ENDIF
  ENDDO
  RETURN(NIL)

STATIC FUNCTION PrnTest(cPrinter, cBMPFile)
  LOCAL oPrinter:= Win32Prn():New(cPrinter), aFonts, x, nColFixed, nColTTF, nColCharSet
  oPrinter:Landscape:= .F.
  oPrinter:FormType := FORM_A4
  oPrinter:Copies   := 1
  IF !oPrinter:Create()
    Alert("Cannot Create Printer")
  ELSE
    IF !oPrinter:startDoc('Win32Prn(Doc name in Printer Properties)')
      Alert("StartDoc() failed")
    ELSE
      oPrinter:SetPen(PS_SOLID, 1, RED)
      oPrinter:Bold(800)
      oPrinter:TextOut(oPrinter:PrinterName+': MaxRow() = '+STR(oPrinter:MaxRow(),4)+'   MaxCol() = '+STR(oPrinter:MaxCol(),4))
      oPrinter:Bold(0)     // Normal
      oPrinter:NewLine()
      oPrinter:TextOut('   Partial list of available fonts that are available for OEM_')
      oPrinter:NewLine()
      oPrinter:UnderLine(.T.)
      oPrinter:Italic(.T.)
//      oPrinter:SetFont('Courier New',7,{3,-50})  // Compressed print
      nColFixed:= 40 * oPrinter:CharWidth
      nColTTF  := 48 * oPrinter:CharWidth
      nColCharSet  := 60 * oPrinter:CharWidth
      oPrinter:TextOut('FontName')
      oPrinter:SetPos(nColFixed)
      oPrinter:TextOut('Fixed?')
      oPrinter:SetPos(nColTTF)
      oPrinter:TextOut('TrueType?')
      oPrinter:SetPos(nColCharset)
      oPrinter:TextOut('CharSet#',.T.)
      oPrinter:NewLine()
      oPrinter:Italic(.F.)
      oPrinter:UnderLine(.F.)
      aFonts:= oPrinter:GetFonts()
      oPrinter:NewLine()
      FOR x:= 1 TO LEN(aFonts) STEP 2
        oPrinter:CharSet(aFonts[x,4])
        IF oPrinter:SetFont(aFonts[x,1])       // Could use "IF oPrinter:SetFontOk" after call to oPrinter:SetFont()
          IF oPrinter:FontName == aFonts[x,1]  // Make sure Windows didn't pick a different font
            oPrinter:TextOut(aFonts[x,1])
            oPrinter:SetPos(nColFixed)
            oPrinter:TextOut(IIF(aFonts[x,2],'Yes','No'))
            oPrinter:SetPos(nColTTF)
            oPrinter:TextOut(IIF(aFonts[x,3],'Yes','No'))
            oPrinter:SetPos(nColCharSet)
            oPrinter:TextOut(STR(aFonts[x,4],5))
            oPrinter:SetPos(oPrinter:LeftMargin, oPrinter:PosY + (oPrinter:CharHeight*2))
            IF oPrinter:PRow() > oPrinter:MaxRow() - 10  // Could use "oPrinter:NewPage()" to start a new page
              EXIT
          ENDIF
          ENDIF
        ENDIF
        oPrinter:Line(0, oPrinter:PosY+5, 2000, oPrinter:PosY+5)
      NEXT x
      oPrinter:SetFont('Lucida Console',8,{3,-50})  // Alternative Compressed print
      oPrinter:CharSet(0)  // Reset default charset
      oPrinter:Bold(800)
      oPrinter:NewLine()
      oPrinter:TextOut('This is on line'+STR(oPrinter:Prow(),4)+', Printed bold, ' )
      oPrinter:TextOut(' finishing at Column: ')
      oPrinter:TextOut(STR(oPrinter:Pcol(),4))
      oPrinter:SetPrc(oPrinter:Prow()+3, 0)
      oPrinter:Bold(0)
      oPrinter:TextOut("Notice: UNDERLINE only prints correctly if there is a blank line after",.T.)
      oPrinter:TextOut("        it. This is because of ::LineHeight and the next line",.T.)
      oPrinter:TextOut("        printing over top of the underline. To avoid this happening",.T.)
      oPrinter:TextOut("        you can to alter ::LineHeight or use a smaller font")
      oPrinter:NewLine()
      oPrinter:NewLine()
      oPrinter:SetFont('Lucida Console',18, 0)  // Large print
      oPrinter:SetColor( GREEN )
      oPrinter:TextOut("Finally some larger print")
      oPrinter:Box(  0, oPrinter:PosY+100, 100, oPrinter:PosY+200)
      oPrinter:Arc(200, oPrinter:PosY+100, 300, oPrinter:PosY+200)
      oPrinter:Ellipse(400, oPrinter:PosY+100, 500, oPrinter:PosY+200)
      oPrinter:FillRect(600, oPrinter:PosY+100, 700, oPrinter:PosY+200, RED)

//    To print a barcode;
//    Replace 'BCod39HN' with your own bar code font or any other font
//      oPrinter:TextAtFont( oPrinter:MM_TO_POSX( 30 ) , oPrinter:MM_TO_POSY(60 ), '1234567890', 'BCod39HN', 24, 0 )
//
      PrintBitMap( oPrinter, cBMPFile )

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


procedure PrintBitMap( oPrn, cBitFile )
  LOCAL oBMP

  IF EMPTY( cBitFile )
    *
  ELSEIF !FILE( cBitFile )
    Alert( cBitFile + ' not found ' )
  ELSE
    oBMP:= Win32BMP():new()
    IF oBmp:loadFile( cBitFile )

      oBmp:Draw( oPrn,  { 200,200, 2000, 1500 } )

      // Note: Can also use this method to print bitmap
      //   oBmp:Rect:= { 200,2000, 2000, 1500 }
      //   oPrn:DrawBitMap( oBmp )

    ENDIF
    oBMP:Destroy()
  ENDIF
  RETURN

Código: Selecionar todos

cPorta := PrnGetPort()

cPrinter := PrinterPortToName( cPorta )

if empty(cPrinter)

   cPrinter := PrinterPortToName( "USB002" )

   if empty(cPrinter)

      cPrinter := PrinterPortToName( "USB001" )

   endif

endif
 

Grave seu texto em MINUTA.TXT ou a gosto.


PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Vendas" )

Código: Selecionar todos

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION Main()

    RDDSETDEFAULT( "DBFCDX" )
    SET CENTURY ON
    SET DATE BRITISH
    SET EPOCH TO YEAR( DATE() ) - 30
    SET SOFTSEEK OFF
    SET WRAP ON
    SETCANCEL( .F. )
    SET CONFIRM OFF
    SET DELETED ON
    SET ESCAPE ON
    SET EXCLUSIVE OFF
    SET MULTIPLE OFF

    HB_LANGSELECT("PT")
    HB_SETCODEPAGE( "PT850" )

Código: Selecionar todos

\xHarbour\lib\rtl.lib +
\xHarbour\lib\vm.lib +
\xHarbour\lib\ct.lib +
\xHarbour\lib\gtgui.lib +
\xHarbour\lib\lang.lib +
\xHarbour\lib\macro.lib +
\xHarbour\lib\rdd.lib +
\xHarbour\lib\dbfntx.lib +
\xHarbour\lib\dbfcdx.lib +
\xHarbour\lib\dbffpt.lib +
\xHarbour\lib\hbsix.lib +
\xHarbour\lib\Debug.lib +
\xHarbour\lib\common.lib +
\xHarbour\lib\pp.lib +
\xHarbour\lib\HbComm.lib +
\xHarbour\lib\pcrepos.lib +
\xHarbour\lib\codepage.Lib +
\xHarbour\lib\cw32.lib +
\xHarbour\lib\HbZip.lib +
\xHarbour\lib\ZLib.lib +
\xHarbour\lib\Tip.lib +
\Borland\Bcc55\lib\cw32.lib +
\Borland\Bcc55\lib\import32.lib +
\Borland\Bcc55\lib\uuid.lib +
\Borland\Bcc55\lib\psdk\odbc32.lib +
\Borland\Bcc55\lib\psdk\rasapi32.lib +
\Borland\Bcc55\lib\psdk\nddeapi.lib +
\Borland\Bcc55\lib\psdk\msimg32.lib +
\Borland\Bcc55\lib\psdk\psapi.lib   +
\Borland\Bcc55\lib\psdk\Shell32.lib +
\Borland\Bcc55\lib\psdk\iphlpapi.lib

Código: Selecionar todos

Harbour 3.2.0dev (Rev. 18443)
Copyright (c) 1999-2012, http://harbour-project.org/
C:\MVinfo\hb32\migrar\SiCCOSV\SiCCOSV.343\sci10000\pci10000.prg: In function 'HB_FUN_HB_GETIMAGESIZE':
C:\MVinfo\hb32\migrar\SiCCOSV\SiCCOSV.343\sci10000\pci10000.prg:3028:4: warning: implicit declaration of function 'GetImageSize' [-Wimplicit-function-declaration]
C:/MVinfo/hmg.3.0.46/hmg.3.0.46/harbour/lib/win/mingw/libxhb.a(xhbprn.o):xhbprn.c:(.text+0x10): multiple definition of `HB_FUN_GETDEFAULTPRINTER'
C:/MVinfo/hmg.3.0.46/hmg.3.0.46/lib/libhmg.a(c_controlmisc.o):c_controlmisc.c:(.text+0x2be0): first defined here
C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10043.o:pci10043.c:(.data+0x1758): undefined reference to `HB_FUN_PRNGETPORT'
collect2: ld returned 1 exit status
hbmk2: Erro: Executando linkeditor. 1
gcc.exe C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10000.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/dci10000.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/dci10001.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/dci10002.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/enviarerro.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/ext.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/impresso.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10001.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10002.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10003.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10004.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10005.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10006.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10007.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10008.o C:/Users/wal/AppData/Local/Temp/hbmk_ahurnf.dir/pci10009.o C:/Users/wal/AppData/Local/Temp/hbmk_
(...)

Código: Selecionar todos

      if .not. isprinter ()
         cPorta := PrnGetPort()
         cPrinter := PrinterPortToName( cPorta )
         if empty(cPrinter)
            cPrinter := PrinterPortToName( "USB002" )
               if empty(cPrinter)
                  cPrinter := PrinterPortToName( "USB001" )
               endif
         endif
         // Grave seu texto em MINUTA.TXT ou a gosto.
         PrintFileRaw( cPrinter, TrueName("PCI10043"), "Impressão de OSV " )
      else
         do while (lastkey () <> K_ESC .and. .not. isprinter ())
            // if .not. CONFIRMA ('A impressora est  pronta')
            if .not. CONFIRMA ('A impressora está pronta','SiCCoSV - Problema de Comunicação com a(s) Impressora(s)')
                * Abandona o programa
                keyboard chr (K_ESC)
                inkey ()
                exit
            endif
         enddo
      endif