Hallo CR-Freunde,

hoffe ihr könnt mir helfen dieses Problem zu lösen. Wir sind echt am Ende unseres Wissens...

Wir haben ein VB6 Programm geschrieben wo mehrere Clients mit verschiedenen Drucker (Epson, HP,...) drauf zugreifen.

Dim CRAppl As New CRAXDRT.application
Dim crRep As New CRAXDRT.report
strReportName = "\\SERVER\Pfad\Name.rpt"
Set crRep = CRAppl.OpenReport(strReportName)
crRep.ParameterFields(1).AddCurrentValue (Parameter)
crRep.PrintOut False


unser Problem ist jetzt folgendes:
Wenn man im CR unter "Seite einrichten" einen Drucker auswählt funktioniert der Bericht für den einen Drucker. Wenn man jedoch keinen Drucker auswählt wird der Bericht nicht gedruckt.

Wir haben mit folgenden Befehl herausgefunden, dass das Häckchen gesetzt ist, wenn im CR unter "Seite einrichten" kein Drucker ausgewählt ist. Darum funktioniert der Bericht nicht auf mehrere Drucker.


popup = crRep.PrinterSetup (Hwnd)



Habt Ihr eine Idee, wie man dieses Problem lösen kann?
Wir könnten für jeden Drucker einen eigenen Bericht machen, was natürlich nicht die saubere Lösung ist.

Besten Dank!!!!