Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgeblendete Tabelle via VBA drucken

Ausgeblendete Tabelle via VBA drucken
26.11.2002 15:28:19
Maik
Hallöchen,

ich versuche eine ausgeblendete Tabelle zu drucken. Der Druckvorgang soll über eine Schaltfläche erfolgen, die zunächst ein Passwort abruft. So weit geht das auch, nur bekomme ich die Seite selbst nicht gedruckt. Okay, sie ist ausgeblendet, also dürfte .Select oder .Activate nicht wirklich klappen.

Gibt es einen anderen Weg zum Ziel?

Immerhin wäre es zum einen ein ziemlicher Aufwand erst per VBA den Mappenschutz zu entfernen, die Tabelle einzublenden und nach dem Druck alles wieder Rückgängig zu machen. Und nebenbei bestünde ja auch die Gefahr eines Programmabbruches/-absturzes, so das der Schutz nicht wieder aktiv wird und somit möglicherweise auch die Berechnungsblätter dem Experimentierwahn des Anwenders offen liegen.

Bis denne,

Maik

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kein anderer Einfall
26.11.2002 15:59:00
Nico D
Hallo Maik,

also mir ist keine andere Lösung bekannt (hatte diesbezüglich auchmal eine Anfrage).

Du kannst doch (wie bereits genannt) eine Worksheets ("XY").Visible mit einer Application.ScreenUpdating (zur Ansichtsunterdrückung) als Alternative verwenden.

Grüße Nico

Re: Ausgeblendete Tabelle via VBA drucken
26.11.2002 16:01:22
Nepumuk
Hallo Maik,
sehe nur eine Möglichkeit. Blatt einblenden, Kopie erstellen und wieder ausblenden. Dann Kopie ausdrucken und löschen. So eventuell:

Sub drucken()
Application.ScreenUpdating = False
Sheets(1).Visible = -1
Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(1).Visible = 2
Sheets(Sheets.Count).PrintOut
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
End Sub

Gruß
Nepumuk

Anzeige
Re: Ausgeblendete Tabelle via VBA drucken
26.11.2002 16:27:43
Maik
Hmmh, Schade auch. Ich hatte gehofft, das es irgendwie ohne einblenden geht.

Naja, nun muss ich mich eben darauf verlassen, das im Fehlerfall die "On Error..."-Anweisung korrekt funktioniert und die betreffende Tabelle wieder ausblendet und die Mappe schützt.

Trotzdem besten Dank an alle.

Bis denne,

Maik

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige