Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

public cVorgabeDrucker := NIL        // Standarddrucker verwenden ***** SCHOCK die alten Programme nutzen PUBLICS ;-)

cVorgabeDrucker := GetStandardDrucker()
if ! empty(cVorgabeDrucker)
   meldung(12,"H",{ "Sie haben den Drucker vorgegeben:","",cVorgabeDrucker,"" })
endif
*------------------------------------------------------------------------
function GetStandardDrucker()
  local cPrinter      := ""
  local cFileName     := UserInI("INI")          // INI-Dateinamen DES Users ermitteln
  local cSection      := "Benutzervorgaben"
  local cVar          := "VorgabeDrucker"

  cPrinter := GetIni(cSection, cVar, cPrinter , cFileName)
  if empty(cPrinter)
     cPrinter := NIL
  endif
return cPrinter

Code: Alles auswählen

*------------------------------------------------------------ Kopf_Brief -----------------------
CLASS Kopf_Brief from HBPrinter
...
ENDCLASS
*--------------------------------------------------------------
METHOD Kopf_Brief:Init()
   ::HBPrinter:Init()
....
return self
*--------------------------------------------------------------
METHOD Kopf_Brief:Create(cPrinterName)

    If cVorgabeDrucker # NIL
       cPrinterName := cVorgabeDrucker
    endif

    ::HBPrinter:Create(cPrinterName)

    if ! ::HBPrinter:IsPrinterError()           // Druckerfehler -> Aufrufe in Hauptprogramm stoppen

...

Code: Alles auswählen

\\Server\Druckername\Setup
oder
\\Server\Druckername\Install

Code: Alles auswählen

  SET PRINTER ON
      SET PRINTER TO "DBf Datei mit Druckerliste die den UNC Pfad enthält"
      ? "Test"
      SET PRINTER OFF

Code: Alles auswählen

    If cVorgabeDrucker # NIL
       cPrinterName := cVorgabeDrucker
    endif

    ::HBPrinter:Create(cPrinterName)