VBA - Spalte und Zeilen nicht drucken, wenn...

[Niko]

Hallo an alle,

anbei ein kleiner Code den ich mit Button zum Laufen zu bringen versuche.

Es soll nur die eingeblendeten Zeilen im Druckbereich drucken, sowie im vorgegebenen Spalten Bereich Text nicht erscheinen bzw. nicht drucken.
In den vorhandenen Code kann ich die vorgegebenen Spalten Bereich vom Drucken ausschließen doch, wenn ein Zeilen Bereich (z.b 60 bis 104) ausblendet wird, kommt Fehler auf. 

Wenn alle Zeilen eingeblendet sind funktioniert es wunderbar, 
doch wie kann ich es mit versteckten Zeilen so bewerkstelligen, dass beides funktioniert?
 

PHP-Code:

Option Explicit

Sub Hide_Zeilen_spaltenbereich()

    Range("H7:H104").NumberFormat = ";;;"
    'ActiveSheet.PrintOut
    ActiveWindow.SelectedSheets.PrintPreview
    Range("H7:H104").NumberFormat = "General"
  
End Sub 


Danke,

Niko

[Niko]

Hier die Lösung die ich basteln konnte…falls es jemand jemals braucht.

PHP-Code:

Sub Hide_RowsColoumns()
With ActiveSheet.PageSetup
Range("H7:H104").NumberFormat = ";;;"
ActiveWindow.SelectedSheets.PrintPreview
End With
Range("H7:H104").NumberFormat = "General"
End Sub 


Danke, 
Niko

[HKindler]

Hi,

mal ganz doof gefragt: was ist deiner Meinung nach der Unterschied zwischen deinem ersten und deinem zweiten Code? Ich sehe keinen, zumindest keinen, der irgendwelche Auswirkungen haben könnte.

[RPP63]

Ja,
vor allem steht innerhalb des With-Statements nichts, was Bezug auf PageSetup nimmt.