Excel Print button werkt niet in Internet browser

[japser747]

Beste Excellers,

Printmacro in excel sheet geopend in browser geeft de volgende fout melding:

"Method 'PrintPreview' of object 'sheets' failed"

Iemand een idee om dit probleem op te lossen?

Dank en gr, Jasper.

 

[Wigi]

Welke code heb je nu?

 

[japser747]

Private Sub cboPrintPortrait_Click()

' mcrPrintPortrait Macro

'

Application.ScreenUpdating = False

ActiveSheet.Outline.ShowLevels RowLevels:=3

Range("AC8").Select

With ActiveSheet.PageSetup

.PrintTitleRows = "$2:$4"

.PrintTitleColumns = "$AB:$AD"

End With

ActiveSheet.PageSetup.PrintArea = "$AB$24:$BN$299"

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = "&A"

.RightFooter = "&P/&N "

.LeftMargin = Application.InchesToPoints(0.196850393700787)

.RightMargin = Application.InchesToPoints(0.196850393700787)

.TopMargin = Application.InchesToPoints(0.15748031496063)

.BottomMargin = Application.InchesToPoints(0.393700787401575)

.HeaderMargin = Application.InchesToPoints(0.196850393700787)

.FooterMargin = Application.InchesToPoints(0.196850393700787)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = 600

.CenterHorizontally = True

.CenterVertically = False

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperA3

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

.PrintErrors = xlPrintErrorsDisplayed

End With

ActiveWindow.SelectedSheets.PrintPreview

Application.ScreenUpdating = True

End Sub