AW: Frage noch offen
10.11.2006 19:51:18
Peter
Hallo Excelfreund
hier der Code zum Drucken.
Der ist allerdings sehr lang.
Sub Makro17()
' Makro17 Makro
' Makro am 13.03.2006 von Mein Name aufgezeichnet
' Tastenkombination: Strg+r
Dim iClick As Integer
iClick = MsgBox( _
prompt:="Wollen sie wirklich auf LPQ3 drucken?", _
Buttons:=vbYesNo)
If iClick = vbYes Then
Sheets("Nr.11").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
Application.ActivePrinter = "\\depacnglwvms5c7\LPQ3 auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\depacnglwvms5c7\LPQ3 auf Ne05:", Collate:=True
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveWindow.Visible = False
Sheets("Nr.10").Select
Range("D5").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D5").Select
Sheets("Nr.9").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D9").Select
Sheets("Nr.7").Select
Range("C6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.6").Select
Range("C8").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Range("D5").Select
Sheets("Nr.7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveWindow.Visible = False
Range("D6").Select
Sheets("Nr.5").Select
Range("D6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.4").Select
Range("D7").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.3").Select
Range("D6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartTitle.Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.2").Select
Range("D8").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.Shapes("Text Box 3").Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Shapes("Text Box 3").Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Nr.1").Select
Range("C8").Select
ActiveSheet.ChartObjects("Diagramm 19").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Grobe-Analyse").Select
Range("D8").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Visible = False
Sheets("Eingabe").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
ElseIf iClick = vbNo Then
Exit Sub
End If
End Sub
Liegt hier vielleicht irgendwo ein Fehler.
Ich möchte einfach nur die Diagramme ausdrucken wobei die Werte automatisch eingefangen werden sollen.
Wenn ich vorher jedes einzelne Diagramm(Tabellenblatt) anklicke dann funktioniert es ja.
Gruß Dieter