AW: Abweichender Drucker speichern
15.04.2021 16:34:38
Andreas
Hi Herbert,
hier meine Datei, wie sie jetzt funktioniert: https://www.herber.de/bbs/user/145552.xlsm
Hab nicht alles so gemacht wie du mir empfohlen hast, bin noch sehr neue was VBA angeht, (ist erst mein zweites Projekt)
und habe einfach nicht alles so hinbekommen wie von dir empfohlen.
Für mich ist das wichtige das es jetzt funktioniert =D
Das ist der Code:
Sub DruckeBereich()
Dim strDruckerAktiv As String
Application.ActivePrinter = "TEC B-SA4T (203 dpi) auf Ne02:" 'ActivePrinter: Ausdruck = "TEC B- _
SA4T (203 dpi) auf Ne02:"
strDruckerAktiv = Application.ActivePrinter
Dim i, max As Integer, vz, bz
max = Sheets("Eingabe").Range("C6").Value
If max 24 Then max = 24
For i = 1 To max
vz = i * 2 - 1: bz = i * 2
'Worksheets(" _
PE-Aufkleber").Range("A" & vz & ":B" & bz).PrintPreview 'PrintOut Copies:=1
Worksheets("Palettenaufkleber").Range("A" & vz & ":D" & bz).PrintOut Copies:=1 ' _
PrintPreview
Next i 'nach dieser _
Zeile löschen, und in Zeile 8 Apostroph entfernen = Dru Reihenfolge ändern auf 1,1,2,2,
max = Sheets("Eingabe").Range("C6").Value
If max 24 Then max = 24
For i = 1 To max
vz = i * 2 - 1: bz = i * 2
Worksheets("PE-Aufkleber").Range("A" & vz & ":D" & bz).PrintOut Copies:=1 ' _
PrintPreview
Next i
End Sub
Gruß Andreas