Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Zellinhalte prüfen und entsprechenden Drucker wählen
01.11.2021 20:52:24 Matthias
NotSolved
01.11.2021 21:01:44 ralf_b
NotSolved
02.11.2021 11:30:54 Gast66667
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
01.11.2021 20:52:24
Views:
75
Rating: Antwort:
  Ja
Thema:
Mehrere Zellinhalte prüfen und entsprechenden Drucker wählen

Moin!

 

Ich möchte gerne dass der Zellinhalt eines Feldes geprüft wird ("NFT" oder "") und in Abhängigkeit davon der richtige Drucker ausgewählt wird.

 

Allerdings schimpft excel über eine Mehrfachdeklaration bei dem 2. Drucker.

Hier das Makro:

Sub Prüfung_DruckBescheinigung()

    
'Prüft ob eine NFS Bescheinigung gedruckt werden muss oder nicht
    If Range("AK27").Value = "NFS" Then


'wählt das Tabellenblatt Bescheinigungen NFS aus
Sheets("Bescheinigungen NFS").Select

'Wählt den Drucker Magazin Dick2 aus
Dim strPrinter As String
Const cstrPrinter As String = "\\sbs-server\RICOH Aficio MP C5000 Dick2 auf Ne10:"
strPrinter = Application.ActivePrinter

'legt fest, dass der Wert der Zelle K49 gedruckt werden soll
ActiveSheet.PrintOut From:=1, To:=1, Copies:=Sheets("Lehrgangsdokumentation").Range("K49").Value, Preview:=False, _
        ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter '

'wählt das Tabellenblatt Lehrgangsdokumentation aus
Sheets("Lehrgangsdokumentation").Select

'Zählt die Zelle AA1 um den Wert 1 hoch
    Dim intcounter As Integer
    intcounter = Range("AA1").Value
    Range("AA1") = intcounter + 1

ElseIf Range("AK27").Value = "" Then


'wählt das Tabellenblatt Bescheinigungen "BG" aus
Sheets("Bescheinigungen").Select

'Wählt den Drucker Magazin 3 aus

Dim strPrinter As String
Const cstrPrinter As String = "\\sbs-server\RDS Hannover Magazin3 auf Ne08:"
strPrinter = Application.ActivePrinter


'legt fest, dass der Wert der Zelle K49 gedruckt werden soll
ActiveSheet.PrintOut From:=1, To:=1, Copies:=Sheets("Lehrgangsdokumentation").Range("K49").Value, Preview:=False, _
        ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter '

'wählt das Tabellenblatt Lehrgangsdokumentation aus
Sheets("Lehrgangsdokumentation").Select

'Zählt die Zelle AA1 um den Wert 1 hoch

    Dim intcounter As Integer
    intcounter = Range("AA1").Value
    Range("AA1") = intcounter + 1


Else


Call BescheinigungenDruckenDirekt

'wählt das Tabellenblatt Lehrgangsdokumentation aus
Sheets("Lehrgangsdokumentation").Select


Call ZähleHoch

End If

End Sub

 

___

 

 

Hat jemand vielleicht freundlicherweise eine Idee?
Bin natürlich ohnehin kein VBA Crack!" :-)

 

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 Mehrere Zellinhalte prüfen und entsprechenden Drucker wählen
01.11.2021 20:52:24 Matthias
NotSolved
01.11.2021 21:01:44 ralf_b
NotSolved
02.11.2021 11:30:54 Gast66667
NotSolved