Free Microsoft Excel 2013 Quick Reference

Print to fit paper

How can I print an entire sheet without the columns and rows that go beyond the page margins being printed on separate pages?

My page setup is 8.5x11" landscape. The margins are as narrow as possible. My print area only includes the cells I need printed. I have 3 colums and 3 rows that print on separate pages. How can I shrink it to fit on one page?

Post your answer or comment

comments powered by Disqus
how do you set a group of cells to print to fit (maximize to one page size,
normally 8 1/2 x 11) on one (and only one) page?

I'm using excel and trying to print a document with the print to fit function
and this works, however only utilizes half of the page, the top part of the
page in print preview, hence making the document to small and unlegible. If
I could stretch this document over the whole page I could then read it.

How do you print a 3 page workbook to fit to one sheet?

I have charts created in excel 2003 that printed to seerate 11x17 sheets. I
cannot figure out how to make them print to fit 11 x 17 in 2007. My charts
are custom containing both columns and lines. How o I duplicate the 2003
command of having my chart fit the 11 x 17 page?

I want to get an entire spreadsheet to fit on one piece of paper when
printing. I am now using Windows XP. My older version in Windows 98 had a
print option tht allowed you to click on a button to fit to one page.

I created an Excel timesheet, no VBA, which 65 people are using. 64 without a problem but the 65th cannot print the sheet as others can.

The last cell on the single sheet is AB61. For the 64 who can print it by selecting the fit to print on one page the percent is 71. For the one person with problems the percent goes down to 10. Even when she opens the read only version on the network it becomes 10%.

I checked the magins and everything else I can think of. Short of reinstalling Excel (2000 with Windows 2000) does anyone have any suggestions?

Hopefully someone can help with this softball of a question. Thank you.


]Does anyone know of a way to print pages so that they fit the entire page.

I know of the fit to page option but this option maintains the ratio of the print area, what I want to do is fit to page even if it means loosing the ratio and stretching the page so that the whole page is printed on.


I have not been able to find a post or a workaround on this topic.

Within an Excel 2007 (document saved as Excel 97-2003 compatible workbook), we have a sheet with data as well as several embedded charts scaled down small so to fit in the view of one page.

In Excel 2003 we could select one of these charts, go to Page Setup and print it so that it fit fully on one landscaped-orientation sheet. No need to manually change the size of the chart to reach this result.

When we try to do this in 2007, we are not given the option to scale the chart to fit a full page, either through Page Layout or Print. If I use the Quick Print command I do get the chart full page but the features of the chart (Y axis) are compressed and almost illegible. To achieve the result of printing on a full-page I have to manually change the embedded chart size.

Is there a way in 2007 to achieve full page print result like for 2003 embedded charts without manually adjusting chart size?


I do a lot of forms and contracts for my organization, and many times these will run more than one page. My problem is ensuring that they will print properly, with page breaks falling where they should, not knowing what type of printers my many users may be trying to output these on.

I've found that using the "Fit To" command in Page Setup - Scaling will work perfectly for a one page document, setting the output percentage as necessary for different conditions. But for multiple pages, let's say setting it for 1 page wide by 3 pages tall, I can no longer ensure where the page break will fall. I'm hoping there's something I'm missing that might fix this, because after all these years of development, I can't believe Excel doesn't handle this better.

Let's say I have that 1 page wide by 3 pages tall example. My normal routine would be to set the print area first, then go to Page Setup and set the 1 pages wide by 3 pages tall, then change the View to Page Break Preview. If I adjust any page break in that mode, and then go back to the Page Setup commands, the setting in the Scaling section have reverted to a fixed percentage. It seems that Excel will not scale for different printer characteristics and allow variable page breaks at the same time. Scaling and page breaks are linked.

Is this right? Is there no option? It seems awful limiting if this is the case.

One solution might be to set up a macro that defines each page and prints it separately. But I run the risk of having different percentage outputs if I do that, and if someone wants to print to a PDF it creates multiple files instead of a single one with multiple pages.

There's gotta be a better way, maybe someone has a good idea. Thanks in advance for any help.


I have a VBA script that goes down a list of hyperlinks and prints off the relevant document. All the documents come off at A4 size where the actual paper sizes should vary. I want column A to have the files and hyperlinks and column B to have the papersizes ie A0-A4. How can this be done?

My script follows :


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As
String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub URLOpen()
   Dim URL As String
   Dim hlnk As Hyperlink
For Each hlnk In Columns("A").Hyperlinks
URL = hlnk.Address
   Call ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
   PrintURL = ShellExecute(0&, "print", URL, vbNullString, vbNullString, vbNormalFocus)
End Sub

Edit: This is used mainly for PDF's DWF's and DWG files

I work on a shared workbook that gets sent back and forth on a daily basis.
Sometimes, the other person will resize the cells causing text to be hidden.
As a result I have to resize the cells to fit text by highlighting the
columns then clicking on Format > Rows and then presto, I can view all text.
However, when I go to print my text is hidden as it was before.
What can I do?


I have a worksheet that is filled out by our various division. The workbook
has two tabs.

Right now, I have set it up so that each tab prints to fit one page. I go
to the first tab, print on one page, then go the the second tab, and print it
on one page.

Ideally, I would like to print these double-sided on the same piece of paper.

I would also like to figure out a way to automate this task (perhaps using
macros?). These are monthly reports which come in from over 30 divisions. It
takes a long time to do this manually, even with the macros I currently have.
[ I curently have a macro set-up which sets the page formatting to fit to
one page. I go to each tab and use the shortcut to this macro.]

I would appreciate help regarding how to print on the same piece, and if
possible, how to do this automatically.



I have multiline cells with text. When I try a "shrink-to-fit" for printing,
Excel often cuts off the lower line(s) of information. Can this be stopped?

I am trying to print a range that falls just outside of a normal A4 size.
Is there a way of scaling this range to fit the page. Withough changing the column sizes before printing(each column is diffrent size). Or will i need to load the column sizes into a array and resize for the print then back to original size from array.


If I setup my print, when fitting to 1 page, I want to know the percentage% the page is set.
The code below gives 0

Any ideas?

Function PercentOnePage_portrait() As Integer
'start from an active sheet
With activeSHEET.PageSetup
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
PercentOnePage_portrait = activeSHEET.PageSetup.Zoom ???
End Function

I have a spreadsheet that fits fine 1 page wide when I go to page setup and adjust the scalingto 63%. Normally I like to use the "Fit to Print 1 page wide" option but when I select that option the scaling adjusts to 39%.

I have gone out and deleted all columns to the right and all rows below the area that I want printed to make sure tehre isn't something out there that it is trying to print but it still reduces the size too much.

I have attached the file that I am tryingto format the printing.





I would like a code which will automatically adjust all worksheets in a workbook to fit 1 page wide by 20 pages tall... of course this will mean that if a sheet is only one page tall it wouldn't print in 20 pages!

can anyone help ?


I have attached my sheet. I want to fit this screen to exactly one page. But That does not fill gap for half page. I have tried fit to page leaving other tall empty.But excel do not fill other half page. I want this print out fit exactly to one page . I need this table some thing like that

I have multiline cells with text. When I try a "shrink-to-fit" for printing,
Excel often cuts off the lower line(s) of information. Can this be stopped?

I created a macro that prints a page of data for each day of the year. I can print to a printer and it prints out 365 pages.

I'd like to print to a PDF rather than hard copy. I can change my default printer to my PDF maker but it prompts me for a file name for each day. I'd like to create a file jones.pdf that contains all 365 days. Ideally, it will not page break after each day because 2 or 3 days of data will fit on each day.

Any ideas? I am open to buying Acrobat 7, if necessary. Thanks. I realize that I am posting this on the Excel forum...appologies in advance if I am in error here. Perhaps I should print from Excel to Word somehow. Again, thanks.

I want my worksheet to print on one page, can someone tell me why this code isn't working? it defines the print area correctly, but does not print on one page:

   ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & LR + 2

    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

Something very strange is happening with a spreadsheet I have. In page break preview, every single cell is set to print to its own the print job is 40,000+ pages. When I try to do literally anything to change any aspect related to printing (page type, margins, print area, etc. etc.) I get a "margins do not fit" error. My margins are all 1". In page setup, if I try to navigate to a tab besides margins I get the same error and I am returned to the margin tab, so I can't even switch between portrait/landscape. If I try to clear the print area I get the same error. If I go to print preview I get the error, and I get a preview of a small white square. Everything works fine on other Excel files (and all other files for that matter). What in the heck is going on?

when you go to print setup, it is possible to change the print size to fit 1 page wide by 1 page high. 99 percent of the time this is what I want to do, is there any way to make this the default setting?

If i print once and then save the document it will always print like this, but each new excel sheet i open doesnt defualt to this



I have a macro running and its designed to print a form to one page. This form can be different sizes depending on the number of entries. However it all needs to fit to one page. However it is not doing so. Can anyone see an error in this code? In the most recent case it actually spread the page over 1 page wide but 2 pages tall.. Thankyou!

Sheets("Total Points").Range("nqpts").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Offset(, -12).Resize(, 13).Select
Sheets("Total Points").PageSetup.PrintArea = Selection.Address
With Sheets("Total Points").PageSetup
.Orientation = xlLandscape
.PrintTitleRows = "TOTALPTSTITLE"
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(0.5)
.BottomMargin = Application.CentimetersToPoints(1)
.HeaderMargin = Application.CentimetersToPoints(1)
.FooterMargin = Application.CentimetersToPoints(0.5)
.CenterFooter = ""
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Sheets("Total Points").PrintPreview
Sheets("Total Points").Range("FirstCartp").Select
Sheets("Total Points").PageSetup.PrintArea = ""
Sheets("Total Points").PageSetup.PrintTitleRows = ""
Application.ScreenUpdating = True
End Sub

No luck finding an answer? You could always try Google.