Can print preview action be disabled

DRJ · Apr 13, 2004

I am having a little trouble with a userform. When I press print the userform comes up and I can select what sheets to print out. No problem here, but if I press print preview and select a page to print it will go to the print preview screen, but if I do not select anything or press the cancel button to just uinload the form excel gets hung up. Maybe becauase there is nothing to show in the print preview?

Anyways is there a simple way to just cancel the print if print preview was pressed. I don't want to disable any of the menu bar items or anything like that, I was just wondering if the before print event can determine if print was pressed or print preview? Or if anyone knows what the problem might be?

erik.van.geit · Apr 13, 2004

Jacob,

is this usefull ?

Code:

If Range("....").printpreview = false then

regards,
Erik

DRJ · Apr 13, 2004

I dont think so, when I run that it just goes to the print preview screen. What I do now is just disable the print preview buttons from the tool bars and that should work. I was just wondering if there was a way for the before print event to tell if there was a print command or a print preview command. thanks for the help tho.

something like

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    If Me.PrintPreview = True Then
        Cancel = True
        Else
        Cancel = True
        PrintFrm.Show
    End If

End Sub

Legacy 21301 · Apr 13, 2004

There are a number of articles in MSKB that may be relevant, covering problems when changing the Cancel argument to True in BeforePrint procedures.

For example :-

http://support.microsoft.com/default.aspx?scid=kb;en-us;284864&Product=xlw

Excel-ent · Apr 14, 2004

will this help:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Preview and Print not allowed.", vbCritical, "PRINT DISABLED"
End Sub

but then this will disable printing as well including print preview.

Best Regards,

Shan

DRJ · Apr 14, 2004

Ponsy - Thanks for the link

Just Shan - unfortunately that will not work. What I have is before print it will cancel = true and show the userform. But if print preview is selected and then the userform is closed excel goes nuts. The link the Pansy posted suggests that this is just a problem with excel.

What I do now is just disable the print preview buttons, which works for my needs.

Thanks

Tom Urtis · Apr 14, 2004

In a standard module:

Sub DisablePrintPreview()
Dim X As CommandBar, Z As CommandBarControl
For Each X In CommandBars
Set Z = X.FindControl(ID:=109, recursive:=True)
If Not Z Is Nothing Then Z.OnAction = "Test1" 'Set Z.OnAction = "" to re-enable
Next X
Set X = Nothing
Set Z = Nothing
End Sub

Sub Test1()
MsgBox "Print Preview is disabled."
End Sub

To re-enable PrintPreview, Set Z.OnAction = ""

DRJ · Apr 14, 2004

Thanks Tom that works perfectly.

Can print preview action be disabled

DRJ

MrExcel MVP

Excel Facts

erik.van.geit

MrExcel MVP

DRJ

MrExcel MVP

Legacy 21301

Guest

Excel-ent

Active Member

DRJ

MrExcel MVP

Tom Urtis

MrExcel MVP

DRJ

MrExcel MVP

Similar threads

Forum statistics

Share this page

Can print preview action be disabled

DRJ

MrExcel MVP

Excel Facts

erik.van.geit

MrExcel MVP

DRJ

MrExcel MVP

Legacy 21301

Guest

Excel-ent

Active Member

DRJ

MrExcel MVP

Tom Urtis

MrExcel MVP

DRJ

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock