[agrbita]

Είναι δυνατόν να ενοποιηθούν οι δύο κώδικες "Προεπισκόπισης Εκτύπωσης" και"Απόκρυψη Γραμμών" Φύλλου, σε ένα Κουμπί Ελέγχου;

παραθέτω τους δύο κώδικες :

α) Είναι γραμμένος στο Φύλλο4

Private Sub cmdHideUnHide_Click()

Dim rng As Range, C As Range

Set rng = Φύλλο4.Range("b201:b215,g268:g290") '<--Βάζουμε τη σωστή περιοχή
Application.ScreenUpdating = False
rng.Rows.AutoFit
If Me.cmdHideUnHide.Caption = "Να Κρύψω;" Then
rng.EntireRow.Hidden = False
For Each C In rng
If Trim(C.Value) = "" Then
C.EntireRow.Hidden = True
End If
Next
Me.cmdHideUnHide.Caption = "Να Αποκαλύψω;"
Else
rng.EntireRow.Hidden = False
Me.cmdHideUnHide.Caption = "Να Κρύψω;"
End If
Application.ScreenUpdating = True

End Sub

β) Είναι γραμμένος στο Module1

Sub PrintPreviewBOOK()

Φύλλο4.PageSetup.PrintArea = "Mytable1"
Φύλλο4.PrintPreview
'Φύλλο3.PageSetup.PrintArea = "Print_Area" < Δέν λειτουργεί η περιοχή αυτή (δεν ξέρω γιατί ?).
'Φύλλο3.PrintPreview
Φύλλο9.PageSetup.PrintArea = "Mytable3"
Φύλλο9.PrintPreview
Φύλλο10.PageSetup.PrintArea = "Mytable4"
Φύλλο10.PrintPreview

End Sub