Microsoft Excel

Herbers Excel/VBA-Archiv

Druckbereich selektieren

    Betrifft: Druckbereich selektieren von: Erich M.
    Geschrieben am: 01.10.2003 11:49:43

    Hallo zusammen,

    ich habe von Hajo's HP eine Datei für die Festlegung des Druckbereichs.
    Diese habe ich um einige Zeilen ergänzt.
    Soweit alles klar.
    Ich schaffe es aber nicht, dass ich den ausgewählten Druckbereich
    per "Select" mir nur anzeigen und nicht ausdrucken lasse.
    Wie müsste ich anpassen:

    Sub Druckvorschau()
    '   erstellt von Hajo.Ziplies@web.de 16.08.03
    ' http://home.media-n.de/ziplies/
    '   ergänzt von Erich M.
        Dim LoI As Long, LoJ As Long, i As Long
        Dim LoLetzte As Long, LoLetztes As Long
        Worksheets("Auswertung").Activate
        LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        LoLetztes = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    '   Printbereich setzen
    '    ActiveSheet.PageSetup.PrintArea = "$C$1:$H$" & LoLetzte
        For LoI = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
            If Application.WorksheetFunction.CountA(Range(Cells(LoI, 2), Cells(LoI, 100))) = 0 Then
            ' Zeile ausblenden
                Rows(LoI).EntireRow.Hidden = True
    
            End If
        Next LoI
        For i = 1 To 10
            Rows(i).EntireRow.Hidden = True
        Next i
        
        For LoJ = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
            If Application.WorksheetFunction.CountA(Range(Cells(1, LoJ), Cells(500, LoJ))) = 0 Then
            ' Zeile ausblenden
                Columns(LoJ).EntireColumn.Hidden = True
            End If
        Next LoJ
    
    Range(LoI, LoJ).Select
        
    '    ActiveSheet.PrintOut
    '    Cells.Select
    '    Selection.EntireRow.Hidden = False
    '    Selection.EntireColumn.Hidden = False
    '    Range("A1").Select
    '    ActiveSheet.PageSetup.PrintArea = ""
    End Sub
    


    Besten Dank für eine Hilfe!

    mfg
    Erich
      


    Betrifft: ActiveSheet.PrintPrewiew (oT) von: xXx
    Geschrieben am: 01.10.2003 12:34:01




      


    Betrifft: Danke - perfekt! (o.T.) von: Erich M.
    Geschrieben am: 01.10.2003 13:07:45

    .


      


    Betrifft: Range("Druckbereich").Select '(o.T.) von: WernerB.
    Geschrieben am: 01.10.2003 12:34:56




      


    Betrifft: DANKE! o.T. von: Erich M.
    Geschrieben am: 01.10.2003 16:19:46

    .


     

    Beiträge aus den Excel-Beispielen zum Thema " Druckbereich selektieren"