Hallo,
ich drücke mich wohl leider extrem ungeschickt aus....
Aktuell funktioniert bei mir der komplette durchlauf einer Fertigungsstufe (Tiefziehen).
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
'an dieser Stelle den entsprechenden Zeichnungspfad einfügen
ThisWorkbook.FollowHyperlink "P:\Projektordner\B\Berchtold\Artikel\83177 Haube F528\Zeichnungen"
End Sub
Wenn ich aber jetzt die beiden anderen Fertigungsstufen einfüge, komme ich nicht weiter. Dann wird die erste Stufe gedruckt und dann hört das Programm auf.
Das meinte ich mit dem Verbindenen Element. Wie sage ich dem Programm das es jetzt mit zwei und drei weitermachen soll, der Sprung von einer Stufe zur nächsten?
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\Berchtold\Artikel\83177 Haube F528\Zeichnungen"
End Sub
|