Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Selection Drucken via vba

Selection Drucken via vba
06.11.2008 10:45:11
Jana
Hallo liebes Forum!
Ich habe eine umfangreiche Datei, die eine Reihe von Diagrammen und Tabellen enthält.
1. Einige dieser Diagramme sollen gedruckt werden.
2. Ein Tabellenausschnitt soll gedruckt werden-> dieser ist über Druckbereich festlegen Da die Datei auf verschiedenen Rechnern läuft mit unterschiedlichen Druckern, ist "nur" der jeweilige Standarddrucker zu wählen. (Die Einstellung eines Druckers als Standarddrucker ist überall sichergestellt)
Um jedes Diagramm einzeln zu drucken, dachte ich mir folgendes:

Public Sub DRUCKEN()
Sheets("Hinweis").Select
ActiveSheet.Shapes.Range(Array("Chart 1","Chart 2")).Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Übersicht").Select
Range("A11:B20").Select
Section.PrintOut Copies:=1
End Sub


Problem: Laufzeitfehler 424 - Objekt erforderlich
Ich kann mit dieser Meldung leider nix anfangen...
Aber es hat doch bestimmt jemand eine ganz tolle Idee!
Vielen, vielen Dank
Gruß Jana

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selection Drucken via vba
06.11.2008 17:59:00
fcs
Hallo Jana,
schlecht zu sagen, was da bei dir nicht funktioniert, ich tippe mal, das die Selektion, die das Makro macht nicht gedruckt werden kann.
Hier mein Vorschlag, der zumindest mit der Seitenvorschau funktioniert hat.
Gruß
Franz

Public Sub DRUCKEN()
Dim strDruckbereich, wks As Worksheet, objChart As ChartObject
'Drucken der eingebetteten Diagramme im Blatt Hinweis
Set wks = Sheets("Hinweis")
With wks
Set objChart = .ChartObjects(1) 'oder via Name .ChartObjects("Diagramm 2")
'         objChart.Chart.PrintPreview
objChart.Chart.PrintOut Copies:=1, Collate:=True
Set objChart = .ChartObjects(2) 'oder via Name .ChartObjects("Diagramm 3")
'         objChart.Chart.PrintPreview
objChart.Chart.PrintOut Copies:=1, Collate:=True
End With
Set wks = Sheets("Übersicht")
With wks
'Druckbereich merken
strDruckbereich = .PageSetup.PrintArea
'Druckberich neu setzen und drucken
.PageSetup.PrintArea = "A11:B20"
'      .PrintPreview
.PrintOut Copies:=1
'Druckbereich zurücksetzen
.PageSetup.PrintArea = strDruckbereich
End With
End Sub


Anzeige
AW: Selection Drucken via vba
06.11.2008 20:07:27
Jana
Guten Abend fcs!!
Dank dir!! wenn auch etwas spät meine Antwort... dafür hat es wunderbar in meinen Code gepasst!!
Dankeschön und nen schön Abend
Gruß Jana

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige