pagebreakme

[lior03]

hello
what is wrong with............
[VBA]
On Error GoTo err
Dim x As Integer
x = InputBox("select pagemode", "pagebreak")
Select Case x
Case 1
x = ActiveWindow.view = xlPageBreakPreview
Case 2
x = ActiveWindow.view = xlNormalView
End Select
Exit Sub
err:
MsgBox " wrong mode selected"

[/VBA]
thanks

[austenr]

If you put this in the sheet1 code this works for me to produce a print preview page.

[VBA] Sub aa()
Dim x As Integer
x = InputBox("select pagemode", "pagebreak")
If x = "1" Then
ActiveWindow.SelectedSheets.PrintPreview
End If
End Sub [/VBA]

Haven't figured out how to return it to normal view but at least part of the problem is solved.

[malik641]

Get rid of "x = " in your Select Case structure

[vba]On Error GoTo err
Dim x As Integer
x = InputBox("select pagemode", "pagebreak")
Select Case x
Case 1
ActiveWindow.View = xlPageBreakPreview
Case 2
ActiveWindow.View = xlNormalView
End Select
Exit Sub
err:
MsgBox " wrong mode selected"[/vba]

[lior03]

hello
can i toggle between...
[VBA] ActiveWindow.view = xlPageBreakPreview[/VBA]
and
[VBA]ActiveWindow.view = xlNormalView[/VBA]
namely can i turn from one to the other in one line?
thanks

[malik641]

[VBA]Sub WindowToggle()
If ActiveWindow.View = xlNormalView Then
ActiveWindow.View = xlPageBreakPreview
Else
ActiveWindow.View = xlNormalView
End If
End Sub[/VBA]
Is this what you mean?