M
Marion
Hello, I have created a lovely macro that builds reports and then
emails them out to people, and i am very proud of it. The reports that
go out are perfect except in one respect...
If you try to print or print preview, they crash excel with an error
message about not being able to read from a memory location.
This is all done in Office 2000 and Windows 2000, all our machines
will print and print preview other files (even other sheets in the
same workbook), but all machines resolutely refuse to print these
reports.
the following code sets up the print settings:
' And set up the print size for the recipient
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintArea = ""
.TopMargin =
Application.InchesToPoints(0.590551181102362)
' Repeat the headings on each printed page
.PrintTitleRows = "$1:$7"
.PrintTitleColumns = ""
' And set up the footer
.LeftFooter = "Printed: &D"
.CenterFooter = "Page &P of &N"
.RightFooter = "&Z&F"
there are subtotals on the sheet, and the books are password
protected, but otherwise there is nothing unusual. Any ideas? I am at
the end of my rope!
Thanks
emails them out to people, and i am very proud of it. The reports that
go out are perfect except in one respect...
If you try to print or print preview, they crash excel with an error
message about not being able to read from a memory location.
This is all done in Office 2000 and Windows 2000, all our machines
will print and print preview other files (even other sheets in the
same workbook), but all machines resolutely refuse to print these
reports.
the following code sets up the print settings:
' And set up the print size for the recipient
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintArea = ""
.TopMargin =
Application.InchesToPoints(0.590551181102362)
' Repeat the headings on each printed page
.PrintTitleRows = "$1:$7"
.PrintTitleColumns = ""
' And set up the footer
.LeftFooter = "Printed: &D"
.CenterFooter = "Page &P of &N"
.RightFooter = "&Z&F"
there are subtotals on the sheet, and the books are password
protected, but otherwise there is nothing unusual. Any ideas? I am at
the end of my rope!
Thanks