drei ArrDruck hintereinander ausführen
15.06.2018 07:11:19
Stefan
ich komme nicht weiter.
Was bisher klappt:
über einen Button wird eine ArrDruck gestartet (definierte Reihenfolge), ein geschlossenes Sheet geöffnet, gedruckt, geschlossen und dann ein Hyperlink geöffnet.
Zur Vereinfachung (bei entnahme der Ausdrucke) für den user möchte ich jetzt den ArrDruck auf drei Stück verteilen und genau da komme ich nicht weiter.
Die Abarbeitung des ersten ArrDruck klappt, das geschlossene Sheet wird abgearbeitete aber dann _ "springt" das Programm nicht in das nächste ArrDruck über und Stoppt?
Private Sub CommandButton1_Click()
Dim ArrDruck() As String
Dim i As Integer
''TIEFZIEHEN (zu Druckende Dokumente Auswählen)
ArrDruck = Split("AA TZ,Tiefziehen,Nachkalkulation TZ,Verpackungsvorschrift,interner _
Lieferschein", ",")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next i
Workbooks.Open "P:\Qualitätsmanagement\1. QM-Handbuch\7 Produktion\Materialzettel.xlsx"
''Materialzettel auswählen
Sheets("ABS gemischt").PrintOut
Workbooks("Materialzettel.xlsx").Close
''FRÄSEN (zu Druckende Dokumente Auswählen)
ArrDruck = Split("AA FR,Fräsen,Nachkalkulation FR,Verpackungsvorschrift,interner Lieferschein", _
_
_
_
_
",")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next i
Workbooks.Open "P:\Qualitätsmanagement\1. QM-Handbuch\7 Produktion\Materialzettel.xlsx"
''Materialzettel auswählen
Sheets("ABS gemischt").PrintOut
Workbooks("Materialzettel.xlsx").Close
''MONTAGE (zu Druckende Dokumente Auswählen)
ArrDruck = Split("AA MO,Montage,Nachkalkulation MO,Verpackungsvorschrift,interner Lieferschein", _
_
_
_
_
",")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next i
Workbooks.Open "P:\Qualitätsmanagement\1. QM-Handbuch\7 Produktion\Materialzettel.xlsx"
''Materialzettel auswählen
Sheets("ABS gemischt").PrintOut
Workbooks("Materialzettel.xlsx").Close
''an dieser Stelle den entsprechenden Zeichnungspfad einfügen
ThisWorkbook.FollowHyperlink "P:\Projektordner\B\yyyyyy\Artikel\xxxxxx\Zeichnungen"
End Sub