Ich habe ein Problem mit einem VBA. Ich habe eine Datei mit zwei Sheets.
Im Sheet A trage ich bis zu 8 Positionen ein und möchte diese Seite anschließend auf dem Drucker wol-pr-7131 auf Ne00: drucken.
Mit den Daten aus Sheet A füttere ich Sheet B und erstelle Vorlagen von diesen bis zu 8 Positionen (über If definiert).
Diese möchte ich dann einzeln auf wol-pr-0155 auf NE03: drucken und genau hier scheitere ich auch.
Mit dem erstem Ausdruck klappt alles da es mein Standarddrucker ist. Aber wie kann ich jetzt den anderen Drucker fixieren ohne das es als mein Standarddrucker eingesetzt wird.
Hier mein bisheriger Code:
Private Sub CommandButton1_Click()
'Speichern unter
strDateiname = Range("A1").Value & "_" & Range("p5").Value & "_" & Range("j23").Value & ".XLSm"
ActiveWorkbook.SaveAs ("L:\Prototypen\Washcoat\WC-Abfüllen\" & strDateiname)
'Print
Sheets("abfüllen").Select
ActiveSheet.PageSetup.PrintArea = "$A1:P25"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
'SC Bestimmt
If Range("S14") = 2 Then
'Anzahl Ausdrucke Definieren
Anzahl = Range("P21").Value
If Anzahl = 1 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E20"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 2 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E40"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 3 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E60"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 4 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E80"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 5 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E100"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 6 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E120"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 7 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E140"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
If Anzahl = 8 Then
Sheets("Template Print out for Barrels").Select
ActiveSheet.PageSetup.PrintArea = "A1: E160"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub