|
Hallo,
nach Click auf einen Button sollen diverse Blätter, in vorgegebener reihenfolge ausgedruckt werden.
Teilweise handelt es sich um unterschiedliche Blätter, manchmal aber auch pro Fertigungsstufe die selben.
Zum Schluß muss noch der Zeichnungsordner aufgehen.
Es funktioniert auch mit der ersten Fertigungsstufe. Sobald ich dann aber die zweite reinbringe sthe ich auf dem Schlauch. Mir fehlt das Verbindende Element?????
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
'an dieser Stelle den entsprechenden Zeichnungspfad einfügen
ThisWorkbook.FollowHyperlink "P:\Projektordner\B\Bxxx\Artikel\xxxxxxxxx\Zeichnungen"
End Sub
Danke für eure Hilfe
|