dyn. Printarea

Forumthread: dyn. Printarea
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: dyn. Printarea

dyn. Printarea

03.05.2005 15:16:33

Chris

Hi Leute,
ich will in meiner Tabelle, ein dynamisches Printarea anlegen. Hierbei ist die erste Zelle, die Zelle mit dem aktuellen Datum und die letzte Zalle liegt in Spalte "AV" und 60 Zeilen tiefer als die erste Zelle.
Habt ihr ne Idee wie man das in VBA lösen kann?
Gruß
Christoph

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

dyn. Druckbereich ab aktuellem Datum

03.05.2005 23:51:51

Beate

dyn. Druckbereich ab aktuellem Datum

03.05.2005 23:51:51

Beate

Hallo Christoph,
lege fogendes Makro ins Codefenster "dieseArbeitsmappe". So springt es bei jedem Druckauftrag oder auch bei Seitenansicht an und legt den Druckbereich dynamisch fest:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim myRange As Range
For Each myRange In ActiveSheet.UsedRange
If myRange.Value = Date Then myRange.Select
Next
ActiveSheet.PageSetup.PrintArea = Range(ActiveCell, Cells(ActiveCell.Row + 60, ActiveCell.Column + 48 - ActiveCell.Column)).Address
End Sub

Gruß,
Beate

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