Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

hjob:=LlJobOpen(-1)

*** Variablenpuffer löschen
LlDefineVariableStart(hjob)

**** Globale Listen-Variablen definieren
LlDefineVariable(hjob, "Firma", ConvToAnsiCP(alltrim(sys_firma)+" "+alltrim(sys_firma2)))
LlDefineVariable(hjob, "Listenname", ConvToAnsiCP(cListenStr))

** Variablen für 1. Datensatz definieren
SetListData(cListenName,1,1)

LlPreviewSetTempPath(hJob, localpath+"\tmp" )

*** Keine Ausgabe des Preview
LlsetOption(hjob, LL_OPTION_INCREMENTAL_PREVIEW, .F.)

nRet := LlPrintStart(hjob, LL_PROJECT_LABEL,                ;
                  fvwlistpfad+cListenName,;
                  LL_PRINT_PREVIEW)
if nRet=0
   *** Parameter für Drucker-Dialog setzen
   DefLLOptions()
   for iii:=1 to len(aGewSaetze)
      auf->(dbgoto(aGewSaetze[iii]))
      *** Variablen setzen
      SetListData(cListenName,1,1)
      nRet := LlPrint(hjob)
      do while nRet=LL_WRN_REPEAT_DATA
           nRet:=LlPrint(hjob)
      enddo
   next
   LlPrintEnd(hjob, 0)

   fi:=localpath+"\tmp\"+cListenName+".LL"
   pp:=""
   hw:=0
   if file(fi)
      cPrinter1:="HP Color LaserJet 2840 PCL 6"
      cPrinter2:="Testdrucker"
      fh:=LlStgsysStorageOpen(fi,pp,.F.,.T.)
      AnzSeit:=LlStgsysGetPageCount(fh)
      nRet:=LlStgsysSetJob(fh,1)
      for i:=1 to AnzSeit
         nRet:=LlStgSysStoragePrint(fi, pp, cPrinter1, cPrinter1, i, i, 0, LS_PRINTFLAG_METER,"Seite "+str(i,2)+" Original",hw)
         if nRet=0
            nRet:=LlStgSysStoragePrint(fi, pp, cPrinter2, cPrinter2, i, i, 0,LS_PRINTFLAG_METER,"Seite"+str(i,2)+"Kopie",hw)                       
         endif
         if nRet<>0
            statsay("Fehler beim Druck: "+alltrim(str(nRet)),ERROR2)
            exit
         endif
      next
      LlStgsysStorageClose(fh)
      LlStgsysDeleteFiles(fh)
   else
      statsay("Fehler bei Öffnen der LL-Datei",ERROR2)
   endif