Ausgabe auf verschiedene Schächte [erledigt]

Moderator: Moderatoren

Antworten
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Ausgabe auf verschiedene Schächte [erledigt]

Beitrag von Wolfgang Ciriack »

Hallo,
kann mir jemand sagen, wie ich bei einem Formular die Kopie aus einem anderem Druckerschacht drucken lasse ?
Viele Grüße
Wolfgang
Benutzeravatar
Martin Altmann
Foren-Administrator
Foren-Administrator
Beiträge: 16502
Registriert: Fr, 23. Sep 2005 4:58
Wohnort: Berlin
Hat sich bedankt: 111 Mal
Danksagung erhalten: 48 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte

Beitrag von Martin Altmann »

Moin,
hilft Dir das weiter :?:
http://www.xbaseforum.de/viewtopic.php?f=39&t=3812

Viele Grüße,
Martin
:grommit:
Webseite mit XB2.NET und ausschließlich statischem Content in Form von HTML-Dateien: https://www.altem.de/
Webseite mit XB2.NET und ausschließlich dynamischem Content in Form von in-memory-HTML: https://meldungen.altem.de/

Mitglied der XUG Osnabrück
Vorsitzender des Deutschsprachige Xbase-Entwickler e. V.
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte

Beitrag von Wolfgang Ciriack »

Ja, danke, hab ich irgendwie nicht gefunden.
Viele Grüße
Wolfgang
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte

Beitrag von Wolfgang Ciriack »

So, jetzt habe ich die Vorschaudatei erzeugt und versuche, die mittels dem Storagesystem zu drucken,was mir aber nicht gelingt.
Hier mein prinzipieller Ablauf:

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
Leider bekomme ich immer beim LlStgSysStoragePrint einen Returnwert
-4 (Druckfkt. aufgerufen,obwohl noch kein Druckjob gestartet).
Kann mir jemand sagen, an welcher Stelle ich was für ein Druckjob starten muss ?
Viele Grüße
Wolfgang
Benutzeravatar
brandelh
Foren-Moderator
Foren-Moderator
Beiträge: 15688
Registriert: Mo, 23. Jan 2006 20:54
Wohnort: Germersheim
Hat sich bedankt: 65 Mal
Danksagung erhalten: 33 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte

Beitrag von brandelh »

Ich weiß nicht was LlStgSysStoragePrint ist, aber ich nutze in meiner Druckerklasse
die XbpPrinter() Methode :paperBins() --> aPaperBins und biete die Texte zur Auswahl.
Die ID speichere ich dann und nutze die bei gleichen Ausdrucken (programmiert).
Gruß
Hubert
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte

Beitrag von Wolfgang Ciriack »

Hallo Hubert,
ja, das mache ich bei meinen Druckroutinen, die nicht über L&L gehen (z.B. für Nadeldrucker) auch so, da bekomme ich das auch so hin.
Aber bei L&L ist diese Ansteuerung (leider) etwas komplizierter.
Viele Grüße
Wolfgang
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte [erledigt]

Beitrag von Wolfgang Ciriack »

So,
mit LlStgSysPrint statt LlStgSysStoragePrint klappt es.
Viele Grüße
Wolfgang
ramses
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2513
Registriert: Mi, 28. Jul 2010 17:16
Hat sich bedankt: 12 Mal
Danksagung erhalten: 77 Mal

Re: Ausgabe auf verschiedene Schächte [erledigt]

Beitrag von ramses »

Hllo Wolfgang

schau dir doch mal den Eintrag "List&Label Drucken" an. Ich habe da eine sehr elegante möglichkeit den Schacht zu wählen beschrieben.

CU Carlo
Valar Morghulis

Gruss Carlo
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: Ausgabe auf verschiedene Schächte [erledigt]

Beitrag von Wolfgang Ciriack »

Hallo Carlo,
vielen Dank nochmal für den Hinweis. Mal sehen, ob ich das auch auf mein Problem (eine Seite zweimal ausgeben, 1x auf Schacht x, einmal auf Schacht y) anwenden kann. Erst einmal habe ich es so realisiert, dass eine Seite zweimal auf verschiedene Drucker ausgegeben wird.
Viele Grüße
Wolfgang
Antworten