Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

METHOD _HBPrinter:create(cDrucker)
LOCAL oDrucker, nDrucker := 1
STATIC saDrucker

IF saDrucker == NIL
  saDrucker := ::DruckerListe()
  aeval(saDrucker, {|x, i| saDrucker[i] := upper(x)})
ENDIF
IF cDrucker == NIL .OR. (nDrucker := aScan(saDrucker, {|x|x == upper(cDrucker)})) == 0
// entweder kein oder unbekannten Drucker uebergeben, also Standarddrucker aus dem System oder 1. tatsächlichen Drucker
  IF nDrucker == 0 // Drucker gibt es nicht (mehr), Druckerliste neu einlesen
    saDrucker := ::DruckerListe()
    aeval(saDrucker, {|x, i| saDrucker[i] := upper(x)})
  ENDIF
  cDrucker := getDefaultPrinter()
  IF empty(cDrucker)  // kein Defaultdrucker im System!
    oDrucker := Druckerauswahl(saDrucker[1])  // Dialog zur Druckerauswahl
    IF .NOT. oDrucker == NIL
      cDrucker := oDrucker:devName
      oDrucker:destroy()
    ELSE
      cDrucker := saDrucker[1]
    ENDIF
  ENDIF
ENDIF

if IsNil(::_oPS)
   ::_oPS             := ::PrinterPS(cDrucker)
   ::oPrinterPS       := ::_oPS
endif

::nLineFeed           := 49 // laut AmiPro hat 12 Punkt Times new Roman genau 4.9 mm Abstand.
                            // a 12 point Times New Roman in AmiPro (my favorite textprogram) has exactly 4.9 mm linefeed
return self

Code: Alles auswählen

    METHOD _HBPrinter:Druckerliste() // gibt alle installierten Drucker zurück.
      LOCAL aDrucker := XbpPrinter():new():list()

      IF aDrucker == NIL
         aDrucker := {} // Fehler später vermeiden
      ENDIF
      RETURN aDrucker

Code: Alles auswählen

oDrucker := FormularDrucker():new():create(cDruckername)
IF .NOT. oDrucker:printerStatus() == XBPPRN_STATUS_READY
   IF .NOT. fehler("Der Drucker '" + oDrucker:devName + "' meldet folgenden Fehler: " + chr(13) + chr(13) +;
   cPrinterStatus(oDrucker:printerStatus()) + chr(13) + chr(13) + "Trotzdem drucken?",,,,,,XBPMB_OKCANCEL) == XBPMB_RET_OK
      RETURN NIL
   ENDIF
ENDIF

Code: Alles auswählen

   ::PrinterPS(cDrucker)

Code: Alles auswählen

FUNCTION PRINTERPS( cPrinter, nCopies, nPaperBin )
LOCAL oDC    := XBPPRINTER() :New()

      IF oDC:Create( cPrinter ) == oDC       // = self
      ELSE
         MSGBOX( "! Drucker ist Offline !" )
         BREAK                               // raus
      ENDIF
      nStatus := oDC:PrinterStatus()
      ...
      
      oPS := XBPPRESSPACE() :New()
      oPS:Create( )
      oPS:configure( oDC, oDC:paperSize(), GRA_PU_LOMETRIC )

RETURN oPS

Code: Alles auswählen

METHOD _HBPrinter:PrinterPS(cPrinterName)
    LOCAL oPS, oDC, nBreite,nHoehe,aPaperSize, IsPrinterVorgabe

    IsPrinterVorgabe := .f.

    if IsNil(::oPrinterPS)              // erster Aufruf - first Time
       if IsNil(::oUseXbpPrinter)       // keine Vorgabe - no preselection
          oPS := XbpPresSpace():New()
          oDC := XbpPrinter():New()
       else
          oPS := XbpPresSpace():New()
          oDC := ::oUseXbpPrinter
          IsPrinterVorgabe := .t.
       endif
    else

       oPS := ::oPrinterPS
       oDC := oPS:device()
       oPS:configure()                  // oDC freigeben - release oDC
       if IsNil(oDC)
          oDC := XbpPrinter():New()
       endif
       if oDC:Status() = XBP_STAT_CREATE  // dann zurücksetzen
          oDC:destroy()
       endif
       if oPS:Status() = XBP_STAT_CREATE  // dann zurücksetzen
          oPS:destroy()
       endif
    endif

    if ! IsPrinterVorgabe
       * Nun haben wir leere Objecte
       oDC:Create(cPrinterName)
    endif

    if IsNil(oDC) .or. oDC:Status() = XBP_STAT_FAILURE
       ::_PrinterCreateErr := .t.
    else
       ::_PrinterCreateErr := .f.
    endif

    if ! ::_PrinterCreateErr

       aPaperSize := oDC:PaperSize()               // hier kommen nur 6 Elemente
       nBreite := aPaperSize[5] - aPaperSize[3]    // laut DOKU sollten es 8 sein.
       nHoehe  := aPaperSize[6] - aPaperSize[4]
       oPS:Create( oDC, {nBreite,nHoehe} , GRA_PU_LOMETRIC )

       ::SetInternalPageVars(oPS)

    endif

RETURN oPS

Code: Alles auswählen

IF oDrucker:IsPrinterError()
			MsgBox("Kein Drucker installiert" )
	RETURN(NIL)