|
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
|