Hallo,
ich bin mir nicht sicher ob das hier die richtige Seite ist um hirfür hilfe zu suchen. Ich habe einen Button welcher speichert und druckt mit folgendem Befehl:
Private Sub CommandButton1_Click()
If Range("A4") = "0" Then MsgBox "Mat No Fehlt"
If Range("A4") = "0" Then Exit Sub
Dim sFileName As String
'Dateiname aus Zelle A4 holen
sFileName = ActiveSheet.Range("A4").Value & " - " & ActiveSheet.Range("A9").Value
ActiveWorkbook.SaveCopyAs Filename:= _
"O:\AA_Dispo\Planungsdaten\" & sFileName & ".xlsm"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("A4").Value & ".xlsm gespeichert.", , "OK"
Dim i As Long, sn As String, SelecteerPrinter
SelecteerPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
If SelecteerPrinter Then _
Sheets("CALCULATION (NEW)").PrintOut Copies:=1, ActivePrinter:=SelecteerPrinter, Collate:=False
Workbooks.Open ("O:\AA_Dispo\Planungsdaten\Tool\Re-Order Point (ROP) Calculation Template_V03.xlsm")
ActiveWorkbook.Close SaveChanges:=False
End Sub
Dies funktioniert eigentlich auch jedoch beim Drucken habe ich zwei Probleme:
1. die Fußzeile ist dem neuen Dateinamen (nach dem Speichebefehl) noch nicht angepasst.
2. Beim Drucken wird die Grafik verändert und enhält keine sauberen Daten mehr.
hier wie es aussieht wenn ich es manuell drucke (über Datei Drucken....)
und so sieht es aus wenn es über den VBA Befehl gedruckt wird:
Wie zu sehen wird in der X-Achse nur 00-YYYY angezeigt und in der Y-Achse wird die Einteilung verändert.
Wäre echt super wenn mir hier jemand helfen könnte...
Gruß
Sebastian
|