Excel vba pagesetup.fittopagestall

The error is generated when we have not turned on the communication to the printer. To avoid this error, we can temporarily turn off the communication using Application. PrintCommunication Property. The worksheet zoom setting in Excel will always be an integer. If the value set by VBA contains decimal places it will be rounded down to the nearest whole number. Excel contains a setting called Zoom to Selection , which is in the View Ribbon.

Clicking this button will automatically zoom the active worksheet to fit the selected cells. This option is also available within the Zoom window. The code below selects Cells A1:J15, the and zooms the window to the size of those cells. Virtually every mouse has a scroll wheel, or similar scrolling feature.

With VBA it is possible to reverse these settings when used within Excel. The value after the. Show is the default size selected in the window. I do not believe it is possible to capture the requested value from the Zoom window, without changing the zoom setting.

Therefore, as a workaround, it is necessary assign the original value to a variable, change the zoom setting, record the new value, then revert to the original. Do you know the fastest way to learn foreign languages? It is to read, write, speak, and think in that language as often as possible. Press F5. Type G1. Look in formula bar while you arrow down through G.

Joined Feb 26, Messages 1, I have copied and ran your code, I cannot replicate the problem. Last edited: Sep 17, I tried to go through all my code, line by line, to find any obvious errors.

But I'm still stuck Here is all of it, in case it will reproduce the error now. If it does not, do you have any recommendations to try and trouble shoot the error? Sheets 1 ucrSh1. Worksheets 1 macroSh5. Range "A". End xlUp. Range "L:L". Insert macroSh5. Range "L1". Copy macroSh5. PasteSpecial xlPasteAll macroSh5. PasteSpecial xlPasteValues macroSh5.

Range "K:K". Delete End If macroSh5. Close False ' '-- Set up waypoint tab for mass file creation ' 'Worksheets.

Add macroSh6. Sheets macroWB. Range "A:J". Range "B:B". Range "C:C". When doing this manually, you can go into the dialog, select the "Fit To:" optionbutton, enter a value in the "Pages Wide" textbox, clear the "Pages Tall" textbox and then hit the OK button.

Then when you reshow the dialog, the zoom factor has automatically adjusted itself and you can select the Zoom optionbutton, thus re-establishing your manual pagebreaks. Unfortunately, it doesn't appear to be possible to reproduce these actions in VBA. PrintPreview End With will do the first part, but it is then impossible to retrieve the resulting Zoom value in order to. This has been a minor frustration for a while now, but since most of my report printing is from pre-formatted template sheets where the above manual operation can be done once and for all, I've always ultimately been able to work around it.

Try the PAGE. PrintPreview End Sub Hope this helps.