Thema Datum  Von Nutzer Rating
Antwort
Rot Problem Drucker-Ansteuerung
 12.11.2022 13:28:52 Matthias
NotSolved
12.11.2022 13:35:15 Gast92608
NotSolved

Ansicht des Beitrags:
Von:
Matthias		 Datum:
12.11.2022 13:28:52		 Views:
648		 Rating:
     
Antwort:
  Ja
Thema:
Problem Drucker-Ansteuerung

Guten Tag,

 

bin ein VBA-Dummchen! :-)

Irgendwie mag er mein Makro nicht:

 

    ' zum Tabellenblatt wechseln
   Sheets("Evaluationsbogen").Select
    
With Worksheets("Evaluationsbogen")
   If .Range("I3") <> "" Then
     Do
         If .Range("I3") <= .Range("I1") Then

  
'Wählt den Drucker  blanko aus
Dim strPrinter As String
Const cstrPrinter As String = "\\SBS-SERVER.mebino.local\RDS Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=Sheets("Evaluationsbogen").Range("I2").Value, Copies:=1, Preview:=False,
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter

               .Range("I3") = .Range("I3") + 1
           Else
               Exit Do
           End If
       Loop
  End If
End With

 

 

Hat jemand eine Idee?

Liebe Grüße

Matthias

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Problem Drucker-Ansteuerung
 12.11.2022 13:28:52 Matthias
NotSolved
12.11.2022 13:35:15 Gast92608
NotSolved