Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenbereich drucken

Forumthread: Tabellenbereich drucken

Tabellenbereich drucken
30.12.2004 21:29:05
WHN
Hallo Leute,
ich möchte einen Tabellenbereich über ein Makro drucken.
Kann mir Jemand ein Beispiel geben?
Gruß Werner
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich drucken
th.heinrich
hi Werner,
z.b. so
Option Explicit
Sub druckbereich()
Dim prnt As Variant
prnt = "bitte bereich eingeben"
ActiveSheet.PageSetup.PrintArea = InputBox(prnt)
End Sub
in ein ein Modul eingeben, oder

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim prnt As Variant
prnt = "bitte bereich eingeben"
ActiveSheet.PageSetup.PrintArea = InputBox(prnt)
End Sub

ruft den Dialog vor dem Drucken auf.
gruss thomas
Anzeige
AW: Tabellenbereich drucken
Ramses
Hallo Thomas
mit
ActiveSheet.PageSetup.PrintArea = Application.InputBox(prn, Type:=8)
geht es besser, weil du den Bereich markieren kannst :-)
Gruss Rainer
danke fuer den hinweis ot.
th.heinrich
Danke für die Hilfe
30.12.2004 23:57:46
WHN
Danke für die Hilfe, jetzt läuft es.
Viele Grüße
Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige