AW: Datei per Button öffnen und direkt ausdrucken
17.12.2017 17:25:21
Werner
Hallo Kevin,
warum eigentlich immer nur scheibchenweise, das hier hat jetzt nicht wirklich so viel mit dem Eingangsbeitrag zu tun. Es ergeben sich einige Fragen, siehe Code.
Private Sub CommandButton1_Click()
'Zuordnung Boxen
'### Sind hier mehrere Dateien offen? Wenn ja, auf welcher
'### Datei befindest du dich?
Sheets("Tabelle1").Range("B6") = UserForm1.TextBox6.Value
Sheets("Tabelle1").Range("B8") = UserForm1.TextBox3.Value
Sheets("Tabelle1").Range("B10") = UserForm1.ComboBox1.Value
Sheets("Tabelle1").Range("B11") = UserForm1.ComboBox2.Value
Sheets("Tabelle1").Range("C13") = UserForm1.ComboBox3.Value
Sheets("Tabelle1").Range("E13") = UserForm1.TextBox5.Value
'UserForm leeren
Unload Me
'Datei nach Druck schließen
'## Wenn nur eine Datei offen ist, dann versuchst du
'## hier die Datei zu schließen in der sich dieser Code
'## befindet. Gleichzeitig willst du aber den folgenden
'## Code noch ausführen, das kann nicht funktionieren
ActiveWorkbook.Close SaveChanges:=True
'Anzahl der Druckblätter erfragen
Dim loAnzahl As Long
loAnzahl = Application.InputBox("Anzahl:", "Anzahl der Ausdrucke", 0, Type:=1)
If loAnzahl > 0 Then
Workbooks.Open ("H:\...\...xlsm")
AchtiveWorkbook.Sheets("Tabelle1").PrintOut Copies:=loAnzahl
ActiveWorkbook.Close
End If
End Sub
Gruß Werner