printpreview

Alex · 09-12-2005, 02:05 PM

I'm using the following code to prevent the empty rows printing.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Initiatives" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
On Error Resume Next
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
.PrintOut
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
False
On Error GoTo 0
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
But, when I'm trying to use the code below to get a preprint report it's not
working.
ActiveWindow.SelectedSheets.PrintPreview

Could anybody advise how I could make it's working?

Thanks

Ron de Bruin · 09-12-2005, 02:05 PM

Hi Alex

Try to disable the events

Application.EnableEvents = False
ActiveWindow.SelectedSheets.PrintPreview
Application.EnableEvents = True

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Alex" <[email protected]> wrote in message news:[email protected]...
> I'm using the following code to prevent the empty rows printing.
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> If ActiveSheet.Name = "Initiatives" Then
> Cancel = True
> Application.EnableEvents = False
> Application.ScreenUpdating = False
> With ActiveSheet
> On Error Resume Next
> .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> True
> .PrintOut
> .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> False
> On Error GoTo 0
> End With
> Application.EnableEvents = True
> Application.ScreenUpdating = True
> End If
> End Sub
> But, when I'm trying to use the code below to get a preprint report it's not
> working.
> ActiveWindow.SelectedSheets.PrintPreview
>
> Could anybody advise how I could make it's working?
>
> Thanks

Alex · 09-12-2005, 05:05 PM

Thanks a lot, Ron.
Now, it's working.

"Ron de Bruin" wrote:

> Hi Alex
>
> Try to disable the events
>
> Application.EnableEvents = False
> ActiveWindow.SelectedSheets.PrintPreview
> Application.EnableEvents = True
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Alex" <[email protected]> wrote in message news:[email protected]...
> > I'm using the following code to prevent the empty rows printing.
> > Private Sub Workbook_BeforePrint(Cancel As Boolean)
> > If ActiveSheet.Name = "Initiatives" Then
> > Cancel = True
> > Application.EnableEvents = False
> > Application.ScreenUpdating = False
> > With ActiveSheet
> > On Error Resume Next
> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> > True
> > .PrintOut
> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> > False
> > On Error GoTo 0
> > End With
> > Application.EnableEvents = True
> > Application.ScreenUpdating = True
> > End If
> > End Sub
> > But, when I'm trying to use the code below to get a preprint report it's not
> > working.
> > ActiveWindow.SelectedSheets.PrintPreview
> >
> > Could anybody advise how I could make it's working?
> >
> > Thanks
>
>
>

Alex · 09-12-2005, 05:05 PM

Sorry, Ron.
I've reported it as done. But, now I'm getting all pages not just filled
rows as before.
The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working.
(the code in the post below )

"Ron de Bruin" wrote:

> Hi Alex
>
> Try to disable the events
>
> Application.EnableEvents = False
> ActiveWindow.SelectedSheets.PrintPreview
> Application.EnableEvents = True
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Alex" <[email protected]> wrote in message news:[email protected]...
> > I'm using the following code to prevent the empty rows printing.
> > Private Sub Workbook_BeforePrint(Cancel As Boolean)
> > If ActiveSheet.Name = "Initiatives" Then
> > Cancel = True
> > Application.EnableEvents = False
> > Application.ScreenUpdating = False
> > With ActiveSheet
> > On Error Resume Next
> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> > True
> > .PrintOut
> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> > False
> > On Error GoTo 0
> > End With
> > Application.EnableEvents = True
> > Application.ScreenUpdating = True
> > End If
> > End Sub
> > But, when I'm trying to use the code below to get a preprint report it's not
> > working.
> > ActiveWindow.SelectedSheets.PrintPreview
> >
> > Could anybody advise how I could make it's working?
> >
> > Thanks
>
>
>

Ron de Bruin · 09-12-2005, 05:05 PM

> I've reported it as done. But, now I'm getting all pages not just filled
> rows as before.

That's correct
What did you expect

If you only want to preview then use

Sub test()
With Sheets("Initiatives")
On Error Resume Next
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.PrintPreview
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
On Error GoTo 0
End With
End Sub

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Alex" <[email protected]> wrote in message news:[email protected]...
> Sorry, Ron.
> I've reported it as done. But, now I'm getting all pages not just filled
> rows as before.
> The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working.
> (the code in the post below )
>
> "Ron de Bruin" wrote:
>
>> Hi Alex
>>
>> Try to disable the events
>>
>> Application.EnableEvents = False
>> ActiveWindow.SelectedSheets.PrintPreview
>> Application.EnableEvents = True
>>
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Alex" <[email protected]> wrote in message news:[email protected]...
>> > I'm using the following code to prevent the empty rows printing.
>> > Private Sub Workbook_BeforePrint(Cancel As Boolean)
>> > If ActiveSheet.Name = "Initiatives" Then
>> > Cancel = True
>> > Application.EnableEvents = False
>> > Application.ScreenUpdating = False
>> > With ActiveSheet
>> > On Error Resume Next
>> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
>> > True
>> > .PrintOut
>> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
>> > False
>> > On Error GoTo 0
>> > End With
>> > Application.EnableEvents = True
>> > Application.ScreenUpdating = True
>> > End If
>> > End Sub
>> > But, when I'm trying to use the code below to get a preprint report it's not
>> > working.
>> > ActiveWindow.SelectedSheets.PrintPreview
>> >
>> > Could anybody advise how I could make it's working?
>> >
>> > Thanks
>>
>>
>>

Alex · 09-12-2005, 06:05 PM

Thank you very much. It's working

"Ron de Bruin" wrote:

> > I've reported it as done. But, now I'm getting all pages not just filled
> > rows as before.
>
> That's correct
> What did you expect
>
> If you only want to preview then use
>
> Sub test()
> With Sheets("Initiatives")
> On Error Resume Next
> .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
> .PrintPreview
> .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
> On Error GoTo 0
> End With
> End Sub
>
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Alex" <[email protected]> wrote in message news:[email protected]...
> > Sorry, Ron.
> > I've reported it as done. But, now I'm getting all pages not just filled
> > rows as before.
> > The Private Sub Workbook_BeforePrint(Cancel As Boolean) is not working.
> > (the code in the post below )
> >
> > "Ron de Bruin" wrote:
> >
> >> Hi Alex
> >>
> >> Try to disable the events
> >>
> >> Application.EnableEvents = False
> >> ActiveWindow.SelectedSheets.PrintPreview
> >> Application.EnableEvents = True
> >>
> >>
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >> "Alex" <[email protected]> wrote in message news:[email protected]...
> >> > I'm using the following code to prevent the empty rows printing.
> >> > Private Sub Workbook_BeforePrint(Cancel As Boolean)
> >> > If ActiveSheet.Name = "Initiatives" Then
> >> > Cancel = True
> >> > Application.EnableEvents = False
> >> > Application.ScreenUpdating = False
> >> > With ActiveSheet
> >> > On Error Resume Next
> >> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> >> > True
> >> > .PrintOut
> >> > .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
> >> > False
> >> > On Error GoTo 0
> >> > End With
> >> > Application.EnableEvents = True
> >> > Application.ScreenUpdating = True
> >> > End If
> >> > End Sub
> >> > But, when I'm trying to use the code below to get a preprint report it's not
> >> > working.
> >> > ActiveWindow.SelectedSheets.PrintPreview
> >> >
> >> > Could anybody advise how I could make it's working?
> >> >
> >> > Thanks
> >>
> >>
> >>
>
>
>