HILFE: Application.PRINTERS Problem - Druckerschacht

18/02/2009 - 17:37 von david.didonato | Report spam
hallo zusammen

ich weiss wurde schon ein paar diskutiert. habe wirklich dringend ein
problem.

ich habe 2 Drucker definiert (ist der gleiche) wo aber der Schacht 2
und 3 definiert wurde.

Nun habe ich folgendes versucht:
****
Set Application.Printer = Application.Printers("\\aadc02\AA-
HP4515-01-233-Fach2")
DoCmd.OpenReport "Rechnung_B", acViewNormal, , "AGID=" & rs!
AGID

Set Application.Printer = Application.Printers("\\aadc02\AA-
HP4515-01-233-Fach3")
DoCmd.OpenReport "Rechnung_Details", acViewNormal, , "AGID="
& rs!AGID
Set Application.Printer = Nothing

Er druckt immer auf dem Standardschacht !!!!!!!
****

2. Versuch war wie folgt:
****
Call SetDefaultPrinter("HP Color LaserJet 2840 series PCL
6")
DoCmd.OpenReport "Rechnung_B", acViewPreview, , "AGID=" & rs!
AGID
Call printSchacht(15, , Reports("Rechnung_B"))
DoCmd.OpenReport "Rechnung_Details", acViewPreview, ,
"AGID=" & rs!AGID
Call printSchacht(15, , Reports("Rechnung_B"))

Public Sub printSchacht(Schacht As Integer, Optional frm As Form,
Optional rpt As Report)
With rpt.Printer
.PaperBin = Schacht
End With
End Sub

Hier reagiert der Drucker gar nicht !!!!!!!
****

Was mache ich falsch - kann mir jemand dringend helfen ? da wàre ich
sehr froh.

Gruss
David
 

Lesen sie die antworten

#1 Karl Donaubauer
18/02/2009 - 17:51 | Warnen spam
wrote:
...
ich habe 2 Drucker definiert (ist der gleiche) wo aber der Schacht 2
und 3 definiert wurde.

Nun habe ich folgendes versucht:
****
Set Application.Printer = Application.Printers("\\aadc02\AA-
HP4515-01-233-Fach2")
DoCmd.OpenReport "Rechnung_B", acViewNormal, , "AGID=" & rs!
AGID
...
Er druckt immer auf dem Standardschacht !!!!!!!
...



Bist du sicher, dass der Drucker genauso heißt?
Auch bezüglich Groß/Kleinschreibung?
Kopiere den Namen zur Sicherheit aus dem Debug-Fenster
wo er landet mit:

Dim prtloop As Printer
For Each prtloop In Application.Printers
Debug.Print prtloop.DeviceName
Next prtloop

Versuche auch mal, den Drucker dem Bericht direkt zuzuweisen,
wie hier beschrieben:
http://groups.google.com/group/micr...718d32ccc5

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
die 1. .NET-Entwickler-Konferenz für Accessler: www.donkarl.com?nek

Ähnliche fragen