none
Gedanken Fehler?

    Frage

  • Hallo Access-Leute

    Wo ist der Fehler:

        Dim stDocName As String
        stDocName = "Aufkleber aus Laufkarte"
    'Drucker setzen
    DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
    Reports![Aufkleber aus Laufkarte].Printer = Application.printers("\\GERHARD-PC\HP Deskjet 3500 Series")

    ' Ist der richtige Drucker angewählt?
      DoCmd.OpenReport stDocName, acPreview, , acHidden
      Label = Printer.DeviceName
       If Label <> "\\GERHARD-PC\HP Deskjet 3500 Series" Then
         MsgBox "ACHTUNG FALSCHER DRUCKER, Bitte über Einstellungen Druckeranwählen"
       End If
      DoCmd.Close acReport, stDocName, acSaveYes

    Es wird die Meldung "ACHTUNG FALSCHER DRUCKER, Bitte über Einstellungen Druckeranwählen" ausgegeben obwohl im ersten Abschnitt der Druker auf dem Report gesetzt wird. ODER??

    Gruß

    Mittwoch, 14. März 2012 13:09

Alle Antworten

  • Am 14.03.2012 schrieb Iemhoff:

        Dim stDocName As String
        stDocName = "Aufkleber aus Laufkarte"
    'Drucker setzen
    DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
    Reports![Aufkleber aus Laufkarte].Printer = Application.printers("\\GERHARD-PC\HP Deskjet 3500 Series")

    Bau ein DoCmd.Close acReport, stDocName, acSaveYes hier ein.

    ' Ist der richtige Drucker angewählt?
      DoCmd.OpenReport stDocName, acPreview, , acHidden
      Label = Printer.DeviceName
       If Label <> "\\GERHARD-PC\HP Deskjet 3500 Series" Then
         MsgBox "ACHTUNG FALSCHER DRUCKER, Bitte über Einstellungen Druckeranwählen"
       End If
      DoCmd.Close acReport, stDocName, acSaveYes

    Lass dir mit Hilfe von Debug.Print Label ausgeben welchen Inhalt die
    Variable hat. Wo ist Label wie deklariert? 
    Servus
    Winfried


    Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
    GPO's: http://www.gruppenrichtlinien.de
    Community Forums NNTP Bridge: http://communitybridge.codeplex.com/

    Mittwoch, 14. März 2012 21:46
  • Guten Morgen Winfried,

    Ein DoCmd.... eingebaut => "Fehler" In Label kommt "PDFCreator" zustehen (auch eins von meinen Druckern).

    Label was als String deklariert.

    Ich kann EINFACH nicht ein Bericht einen Drucker zuweisen.

    Der obere Kode ist only a test-code um zusehen wie wird ein Bericht "Aufkleber aus Laufkarte" einen Drucker durch VBA zugewiesen werden kann.

    Ist der Drucker, abhängig vom Arbeitsplatz (UserName or PC-name) zugewiesen können weitere Daten wie TopMargin,usw gesetzt werden. Aber DruckerPfad soll abhängig vom Arbeitsplatz gerichtet werden.

    Es sind Unterschiedliche Drucker vorhanden an unterschiedliche PC's und Netzwerk-Drucker.

    Gruß

    Jan

    Donnerstag, 15. März 2012 07:29