Druckbereich: Names.Add Druckbereich vs PrintArea

Sub worksheet_deactivate() möchte ich für einige Tabellen folgenden Code aufrufen, mit dem Ziel, _ dass der Druckbereich angepasst wid. Dieser soll Spalten A bis V und Zeile 1 bis derjenigen mit dem letzten Eintrag in Spalte D sein. Wenn ich das Definieren des Druckbereichs mit dem Makrorecorder aufzeichne, wird der Befehl ActiveSheet.PageSetup.PrintArea aufgezeichnet. Wie kann ich diesen in nachfolgenden Code integrieren? Spätestens bei einer anderen _ Sprachversion würde wohl "Druckbereich" nichts mehr bringen. Danke für eine Rückmeldung. Peter Sub DrBereich_festlegen() Dim lngANF As String Dim lngEND As String Dim ASN As String ThisWorkbook.Activate ASN = ActiveSheet.Name strANF = 1 strEND = Sheets(ASN).Cells(65536, 4).End(xlUp).Row 'ermittelt letzten Eintrag in Spalte D 'Druckbereich definieren Set Bereich = Range("D" & strANF, "V" & strEND) Names.Add _ Name:="Druckbereich", _ RefersTo:=Bereich, Visible:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforePrint(Cancel As Boolean) Const sValidNames = "ALSO, SIMPLEX, DITO" If InStr(ActiveSheet.Name, sValidNames) = 0 Then Exit Sub ActiveSheet.PageSetup.PrintArea = "$A$1:$V$" & _ ActiveSheet.Range("D" & ActiveSheet.Rows.Count).End(xlUp).Row End Sub

Hallo Renée
Komme nochmals mit dem Code. Irgendwie klappt es nicht mit
If InStr(ActiveSheet.Name, TabNamenViaCodenamen) = 0 Then Exit Sub, das heisst, diese Prüfung ergibt mir regelmässig 0 und damit wird kein neuer Druckbereich festgelegt.
Wie du untenstehendem Code entnehmen kannst, habe ich die Konstante durch eine Abfrage der betroffenen Tabellennamen ersetzt, da die Möglichkeit besteht, dass die betreffenden Tabellennamen umbenannt werden.
Mit MsgBox habe ich mir den String (alle Tabellennamen hintereinander) sowie den jeweiligen Tabellennamen anzeigen lassen. Auch wenn der Tabellennamen in diesem String enthalten ist, wird mir eine NULL ausgegeben. Die MsgBox Meldung ("X") nach dieser Anfrage wurde mir nie angezeigt, was bestätigt, dass bei Exit Sub immer Ende ist.
Wahrscheinlich wir nur eine Kleinigkeit falsch sein und für ein geübtes Auge auf den ersten Blick erkennbar.
Danke für eine Rückmeldung.
Peter


Private Sub Workbook_Beforeprint(Cancel As Boolean)
Dim TabNamenViaCodenamen As String
Dim ASN As String
TabNamenViaCodenamen = Tabelle11.Name & Tabelle12.Name & Tabelle13.Name & Tabelle14.Name &  _
Tabelle15.Name & Tabelle16.Name & Tabelle17.Name
MsgBox TabNamenViaCodenamen
ASN = ActiveSheet.Name
MsgBox ASN
MsgBox ActiveSheet.Name
MsgBox InStr(ActiveSheet.Name, TabNamenViaCodenamen)
If InStr(ActiveSheet.Name, TabNamenViaCodenamen) = 0 Then Exit Sub
If InStr(ASN, TabNamenViaCodenamen) = 0 Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$A$1:$V$" & ActiveSheet.Range("G" & ActiveSheet.Rows.Count). _
End(xlUp).Row
MsgBox "x"
End Sub

Private Sub Workbook_Beforeprint(Cancel As Boolean) Dim TabNamenViaCodenamen As String TabNamenViaCodenamen = Tabelle11.Name & Tabelle12.Name & _ Tabelle13.Name & Tabelle14.Name & _ Tabelle15.Name & Tabelle16.Name & _ Tabelle17.Name If InStr(TabNamenViaCodenamen, ActiveSheet.Name) = 0 Then Exit Sub ActiveSheet.PageSetup.PrintArea = "$A$1:$V$" & _ ActiveSheet.Range("G" & ActiveSheet.Rows.Count).End(xlUp).Row End Sub

Hallo
du kannst das auch flexibel handhaben, dann musst du in dem eigentlichen Makro nichts mehr ändern
Damit gibst du nur noch an, welche Tabelle gedruckt werden soll, so die Startzeile beginnt und welche Spalten überprüft werden sollen.

Sub Druckbereich_definieren()
    'Tabelle angeben wo der Druckbereich erstellt werden soll
    'Start des Druckebereiches in Zeile 5
    'beginnt in Spalte 1 = A
    'endet in Spalte 4 = D
    DrBereich_festlegen "Tabelle2", 5, 1, 4
End Sub

Sub DrBereich_festlegen(printSheet As String, rowStart As Long, startCol As Long, endCol As Long)
    Dim rowEnd As Long
    Dim ASN As String
    Dim strStartCol As String, strEndCol As String
    With ThisWorkbook
        .Activate
        With .Worksheets(printSheet)
            rowEnd = .Cells(.Rows.Count, endCol).End(xlUp).Row 'ermittelt letzten Eintrag in übergebener Spalte
            strStartCol = Left(.Columns(startCol).Address(0, 0), Len(.Columns(startCol).Address(0, 0)) - InStr(1, .Columns(startCol).Address(0, 0), ":"))
            strEndCol = Left(.Columns(endCol).Address(0, 0), Len(.Columns(endCol).Address(0, 0)) - InStr(1, .Columns(endCol).Address(0, 0), ":"))
            .PageSetup.PrintArea = ""
            .PageSetup.PrintArea = strStartCol & rowStart & ":" & strEndCol & rowEnd
        End With
    End With
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Druckbereich: Names.Add Druckbereich vs PrintArea

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread