Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

         oWeKeyGra1Druck := WeKeyGra1Druck():New():create()
         oWeKeyGra1Druck:addFont("21.Arial") *** hier kracht es
         oWeKeyGra1Druck:addFont("10.Arial")
         oWeKeyGra1Druck:addFont("8.Arial")

Code: Alles auswählen

Xbase++ Version     : Xbase++ (R) Version 1.90.355
Betriebssystem      : Windows 7 06.01 Build 07601 Service Pack 1
------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: O CLASS: XbpFont
          -> VALTYPE: O CLASS: XbpPresSpace
oError:canDefault   : N
oError:canRetry     : N
oError:canSubstitute: J
oError:cargo        : NIL
oError:description  : Parameter hat falschen Typ
oError:filename     : 
oError:genCode      :          2
oError:operation    : :init
oError:osCode       :          0
oError:severity     :          2
oError:subCode      :       1025
oError:subSystem    : BASE
oError:thread       :          1
oError:tries        :          0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von _HBPRINTER:ADDFONT(1953)
Aufgerufen von DRULST01(57)
Aufgerufen von (B)_LISTENDRUCK:INIT(109)
Aufgerufen von _LISTENDRUCK:LISTENDRUCKEN(145)
Aufgerufen von (B)_LISTENDRUCK:INIT(102)
Aufgerufen von XBPPUSHBUTTON:HANDLEEVENT(991)
Aufgerufen von DOEVENTLOOP(43)
Aufgerufen von MAIN(119)

Code: Alles auswählen

*-------------------------------------------------------------------
METHOD _HBPrinter:PrintBmp(nX,nY,nXSize,nYSize,cFileName,nID)
   local oBitmap,lSuccess:=.t.,aPos1:={}, lIsLoaded := .f.
   // infos zum Drehen ???
   /*
      Drehen mit linke obere und rechte untere Ecke vertauscht ????
   */
   // nx=xKoordinate, ny=yKoordinate, cFileName
   // nXSize=Breite in X, nYSize=Höhe in Y
   aPos1 := ::PosHBtoXPP(nX,nY)
   oBitmap := XbpBitmap():new():create( ::oPS )

   if IsNil(nID)    // Dateiname der Bitmap wurde übergeben
      lIsLoaded := oBitmap:loadFile( cFileName )
   else             // Resource wurde angegeben, benutzen  HB
      lIsLoaded := oBitmap:load( cFileName , nID )   // hier kann cFileName für DLL verwendet werden
   endif

   if lIsLoaded
      if ::IsPageToPrint()
         *
         * ein Parameter NIL, der andere nicht dann proportional vergrößern
         * Rechtsbündig drucken
         * drehen ... ########################
         DEFAULT nXSize TO oBitmap:xSize
         DEFAULT nYSize TO oBitmap:ySize
         lSuccess:= oBitmap:draw( ::oPS, {aPos1[1],aPos1[2],aPos1[1]+nXSIZE,aPos1[2]+nySize} )
      endif
   else
      lSuccess := .f.
      if ::IsPageToPrint()
         GraStringAT(::oPS, {aPos1[1],aPos1[2]},"Kein Bild")
      endif
   endif
return lSuccess

Code: Alles auswählen

*-------------------------------------------------------------------
METHOD _HBPrinter:PrintBmp(nX,nY,nXSize,nYSize,cFileName,nID)
   local oBitmap,lSuccess:=.t.,aPos1:={}, lIsLoaded := .f., lIsToDestroy := .f.
   // infos zum Drehen ???
   /*
      Drehen mit linke obere und rechte untere Ecke vertauscht ????
   */
   // nx=xKoordinate, ny=yKoordinate, cFileName
   // nXSize=Breite in X, nYSize=Höhe in Y
   aPos1 := ::PosHBtoXPP(nX,nY)
   if valtype(uFileName)="O" // XbpBitmap() ... geht das so ?
      oBitmap := cFileName  // cFileName => uBitmap umbenennen ?
      oBitmap:presSpace( ::oPS )
      lIsLoaded := .t.
      lIsToDestroy := .f. // das müsste das aufrufende Programm übernehmen
   else
      oBitmap := XbpBitmap():new():create( ::oPS )
      if IsNil(nID)    // Dateiname der Bitmap wurde übergeben
         lIsLoaded := oBitmap:loadFile( cFileName )
      else             // Resource wurde angegeben, benutzen  HB
         lIsLoaded := oBitmap:load( cFileName , nID )   // hier kann cFileName für DLL verwendet werden
      endif
      lIsToDestroy := .t.
   endif
   if lIsLoaded
      if ::IsPageToPrint()
         * ein Parameter NIL, der andere nicht dann proportional vergrößern
         * Rechtsbündig drucken
         * drehen ... ########################
         DEFAULT nXSize TO oBitmap:xSize
         DEFAULT nYSize TO oBitmap:ySize
         lSuccess:= oBitmap:draw( ::oPS, {aPos1[1],aPos1[2],aPos1[1]+nXSIZE,aPos1[2]+nySize} )
      endif
      if lIsToDestroy
         oBitmap:destroy()
      endif
   else
      lSuccess := .f.
      if ::IsPageToPrint()
         GraStringAT(::oPS, {aPos1[1],aPos1[2]},"Kein Bild")
      endif
   endif
return lSuccess

Code: Alles auswählen

  1.40 -  2015-03-13
           NEU  ::PrinterList()        => XbpPrinter():List()
           NEU  ::GetDefaultPrinter()  => XbpPrinter():New():Create():devName
           NEU  ::IgnoreBusy           => ::IsPrinterError() ignoriert XBPPRN_STATUS_BUSY
                  - erm”glicht das Drucken obwohl der Drucker auf BUSY steht.
                  - IgnoreBusy DEFAULT .f. => Fehler auch bei BUSY
                  - IgnoreBusy         .t. => KEIN Fehler bei BUSY
           NEU  ::IgnorePaused         => ::IsPrinterError() ignoriert XBPPRN_STATUS_PAUSED

   1.39 -  15.11.2013  (= 2013-11-15)
           NEU  ::PrintMemoLineMaxLen  speichert die l„ngste Zeile des zuletzt aufgerufenen ::PrintMemo(), ::PrintMemoPage()
           NEU  ::PrintArtBoxOffsetX   legt den Abstand Links/Rechts der cArt="B" Box zum Text fest, bisher fix 10 = 1 mm
           NEU  ::PrintArtBoxOffsetY   legt den Abstand Oben/Unten   der cArt="B" Box zum Text fest, bisher fix 10 = 1 mm

   1.38 -  14.11.2013  (= 2013-11-14)
           HBPRINTD.PRG - NTRIM() als STATIC FUNCTION erg„nzt, ERRBOX() => MSGBOX()

   1.37 -  04.04.2013  (= 2013-04-04)
                ::PrintMemo()  Fehler bei Seitenumbruch, gemeldet von <Werner_Bayern>
           NEU  ::abort()      Abbruch des Druckjobs, erstellt von <Werner_Bayern> aus dem Forum.
           NEU  ::PrintMemoCountLines(cMemoText,nMaxLineLen) ermittelt wieviele Zeilen ::PrintMemo() ben”tigen wird, ohne tats„chlich zu drucken.

Code: Alles auswählen

      if cAusrichtung $ "LCZMR"         // cTxt ausgeben - print cTxt
         if IsPrintTextAlltrim          // wird auch von automatischer Positionierung benötigt.
            lSuccess   := GraStringAt(::oPS, aPos, cTxt+" " )
         else
            lSuccess   := GraStringAt(::oPS, aPos, cTxt )
         endif
      endif

Code: Alles auswählen

#pragma Library( "XppUI2.lib" )

function main
local oDlg, oDrucker, nPosY := 200, nPosX := 1000, cText := "Druckertest OXX"

oDlg := XbpPrintDialog():new()
oDlg:create()
oDrucker := oDlg:display()
oDlg:destroy()
if oDrucker == NIL   // kein Drucker gewählt!
   return NIL
endif

oDrucker := hbprinter():new(oDrucker):create()

if oDrucker:IsPrinterError()             // Fehler verhindern, avoid errors
   msgbox("Drucker ist nicht verfügbar !")
else
   oDrucker:addFont("11.Arial")
   oDrucker:addFont("11.Arial Fett")
   oDrucker:addFont("16.Angsana New Fett")
   oDrucker:setFont(1)
   oDrucker:StartDoc("Drucktest")
   oDrucker:PrintText( nPosX, nPosY, cText, "R")
   nPosY += oDrucker:LineFeed()
   oDrucker:setFont(2)
   oDrucker:PrintText( nPosX, nPosY, cText, "R")
   nPosY += oDrucker:LineFeed()
   oDrucker:setFont(1)
   oDrucker:StartDoc("Drucktest")
   oDrucker:PrintText( nPosX, nPosY, cText, "R")
   nPosY += oDrucker:LineFeed()
   oDrucker:setFont(3)
   oDrucker:PrintText( nPosX, nPosY, cText, "R")
   oDrucker:EndDoc()
endif
return NIL