Surface Pro (2017) vs Surface Pro 4
I have a problem with a spreadsheet that I have inherited as my macro editing skills are poor.
I have had to add a few pages of data to the spreadsheet. However when I select the print button the original pages come out in a good format but the pages I have added come out on two pages and are therefore too small to read.
The macro is shown below. The first 34 pages are fine it is pages 35 - 38 that I have the problem with. Is it anything to do with the select case below? Or am I clutching at straws. Any help greatly appreciated
frompage = InputBox("This consolidation pack contains a total of 36 pages. Please insert first page number to print:")
toPage = InputBox("Please insert past page number you wish to print:")
If IsNumeric(frompage) = False Or IsNumeric(toPage) = False Then Exit Sub
For i = 1 To 36
If i > frompage - 1 And i toPage + 1 Then
ActiveSheet.PageSetup.PrintArea = "print" & i
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.RightFooter = " "
Select Case i
.Orientation = xlLandscape
.Orientation = xlPortrait
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
This thread is now locked and can not be replied to.