Seite 1 von 1

Druckerauswahl mit Kopien

Verfasst: Mo, 02. Jun 2008 12:46
von Rolf Ramacher
Hallo,

ich probier gerade mal etwas aus. Ich möchte das der User die Anzahl der Kopien selbst bestimmen kann.

Wo setzte ich den :enableNumCopies() ein ??

Code: Alles auswählen

 oDlg := XbpPrintDialog():new() 
   // Druckausgabe nicht standardmäßig in Datei umleiten 
   oDlg:enablePrintToFile := .f. 
   oDlg:printToFile       := .f. 
   oDlg:create() 

   // Konfiguriertes Drucker Objekt erzeugen 
   oPrinter := oDlg:display() 
	oPrinter:enableNumCopies:=.t.
   oDlg:destroy() 
   IF oPrinter <> NIL 
		cPrinter:=oPrinter:DevName
		Drucken(cVerz+"\umsatzliste.rtf",cPrinter)
	EndIf
	FAttr("umsatzliste.rtf","H")
	FAttr("umsatzliste.rtf","R")
Return Nil
oder muß dies innerhalb von If Printer sein ??

Verfasst: Mo, 02. Jun 2008 13:13
von brandelh
Hi,

es ist definitiv eine Methode des XbpPrinterDialog() .

Damit wird im Prinzip die Eingabemöglichkeit für Seiten auf diesem freigeschaltet, aber laut Doku gibt es ab und an Probleme ?

Siehe auch XbpPrinterDialog():numCopies

Eventuell nützt dir auch XbpPrinter():setNumCopies(), falls du in deinem Programm die Anzahl anders einstellen kannst.

Allerdings unterstützen nicht alle Drucker per Hardware mehrere Kopien und ob der Spooler das dann selbst macht weiß ich nicht.

Re: Druckerauswahl mit Kopien

Verfasst: Mo, 02. Jun 2008 17:11
von AUGE_OHR
hi,
Rolf Ramacher hat geschrieben: ich probier gerade mal etwas aus. Ich möchte das der User die Anzahl der Kopien selbst bestimmen kann.

Wo setzte ich den :enableNumCopies() ein ??

Code: Alles auswählen

   oDlg := XbpPrintDialog():new() 
   // Druckausgabe nicht standardmäßig in Datei umleiten 
   oDlg:enablePrintToFile := .f. 
   oDlg:printToFile       := .f. 
   oDlg:create() 

   // Konfiguriertes Drucker Objekt erzeugen 
   oPrinter := oDlg:display() 
	oPrinter:enableNumCopies:=.t.
   oDlg:destroy() 
   IF oPrinter <> NIL 
		cPrinter:=oPrinter:DevName
		Drucken(cVerz+"\umsatzliste.rtf",cPrinter)
	EndIf
	FAttr("umsatzliste.rtf","H")
	FAttr("umsatzliste.rtf","R")
Return Nil
oder muß dies innerhalb von If Printer sein ??
ich setzte :setNumCopies in meine Function PRINTERPS() ein, da wo ich
auch den Paperbin setzte.

Code: Alles auswählen

oDC:setPaperBin( nPaperBin )
oDC:setNumCopies( nCopies )
oDC:configure()