Print dialogue by hiding row 13

[adamsm]

Hi anyone,

How could i write a mcaro code that would show the print dialogue by hiding row 13 of the active sheet if its not hidden.

If its hidden; will show the dialog by not doing any action.

Any help on this would be kindly appreciated.

Thanks in advance.

 

[Sektor]

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR])
    [COLOR="Blue"]With[/COLOR] Activsheet.Rows(13).EntireRow
        [COLOR="Blue"]If[/COLOR] .Hidden = [COLOR="Blue"]False[/COLOR] [COLOR="Blue"]Then[/COLOR]
            .Hidden = [COLOR="Blue"]True[/COLOR]
        [COLOR="Blue"]Else[/COLOR]
            Cancel = [COLOR="Blue"]True[/COLOR]
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[adamsm]

Where should I place the code?

 

[Sektor]

Into ThisWorkbook module.

 

[adamsm]

Does this mean each time the print dialogue is open the row 13 gets hidden on any active sheet?

My concern is that I have some sheets where I don't want to hide row 13 but open print dialogue?

 

[Sektor]

Replace and add sheet names in Array function where row 13 must be hidden.

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR])

    [COLOR="Blue"]Dim[/COLOR] i [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Integer[/COLOR], arr [COLOR="Blue"]As[/COLOR] Variant
    
    arr = Array("Sheet1", "Sheet2", "Sheet3")

    [COLOR="Blue"]For[/COLOR] i = [COLOR="Blue"]LBound[/COLOR](arr) [COLOR="Blue"]To[/COLOR] [COLOR="Blue"]UBound[/COLOR](arr)
        [COLOR="Blue"]If[/COLOR] arr(i) = ActiveSheet.Name [COLOR="Blue"]Then[/COLOR]
            [COLOR="Blue"]If[/COLOR] .Hidden = [COLOR="Blue"]False[/COLOR] [COLOR="Blue"]Then[/COLOR]
                .Hidden = [COLOR="Blue"]True[/COLOR]
            [COLOR="Blue"]Else[/COLOR]
                ActiveSheet.PrintPreview
            [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
    [COLOR="Blue"]Next[/COLOR]

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[adamsm]

In your second code you haven't mention the row to be hidden this gives me debug message.

Having this situation where should I place the line

With Activsheet.Rows(13).EntireRow in the second code?</pre>

 

[Sektor]

Sorry... Correction:

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforePrint(Cancel [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR])

    [COLOR="Blue"]Dim[/COLOR] i [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Integer[/COLOR], arr [COLOR="Blue"]As[/COLOR] Variant
    
    arr = Array("Sheet1", "Sheet2", "Sheet3")

    [COLOR="Blue"]With[/COLOR] ActiveSheet.Rows(13).EntireRow
        [COLOR="Blue"]For[/COLOR] i = [COLOR="Blue"]LBound[/COLOR](arr) [COLOR="Blue"]To[/COLOR] [COLOR="Blue"]UBound[/COLOR](arr)
            [COLOR="Blue"]If[/COLOR] arr(i) = ActiveSheet.Name [COLOR="Blue"]Then[/COLOR]
                [COLOR="Blue"]If[/COLOR] .Hidden = [COLOR="Blue"]False[/COLOR] [COLOR="Blue"]Then[/COLOR]
                    .Hidden = [COLOR="Blue"]True[/COLOR]
                [COLOR="Blue"]Else[/COLOR]
                    ActiveSheet.PrintPreview
                [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
            [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
        [COLOR="Blue"]Next[/COLOR]
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[adamsm]

I'm sorry but I don't see any effect of this code on my workbook. I mean it does not hide row 13 and show the print dialog. Instead it shows the print dialogue but does not hide the row.

What may be the reason for this?