fit to page question
Printed From: www.exp-systems.com
Category: PDF reDirect
Forum Name: Programming
Forum Discription: VBA and Batch Tools to control PDF reDirect Pro
URL: http://www.exp-systems.com/Forum_exp/forum_posts.asp?TID=1189
Printed Date: 24 Apr 24 at 11:11AM
Topic: fit to page question
Posted By: petert
Subject: fit to page question
Date Posted: 17 Oct 14 at 7:57AM
Hello
Could you tell me how to set the fit to page option in VBA please?
Thank you.
|
Replies:
Posted By: Michel_K17
Date Posted: 20 Oct 14 at 12:08AM
Hi,
The "fit-to-page" is set from the originating application such as "Word" or "Excel". I don't remember by heart how to change that setting in Word, but here is an example for Excel:
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Is that what you were looking for?
-------------
Michel Korwin-Szymanowski
EXP Systems LLC
|
Posted By: petert
Date Posted: 21 Oct 14 at 3:39AM
Hello
Thanks for the help. I have tried using the code you suggested but the right hand side of the pdf is still chopped off. Am I doing something wrong? Thanks
With Application.ActiveWorkbook.Sheets(1).PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.ActiveWorkbook.Sheets(1).PrintOut 1, 1, 1, 0, MyBatchPrinter
|
Posted By: Michel_K17
Date Posted: 21 Oct 14 at 7:11AM
Looks good.
You can check the printer properties of the Batch Printer in the Windows Control Panel to make sure that the zoom setting is set to 100%.
Also, not know what your spreadsheet looks like, you might want to check the wordwrap settings of the cells.
If you go into Excel, and manually print to a printer, and do the page preview, does it show that that the printout is chopped off?
That's all I can think of at this time.
Cheers!
-------------
Michel Korwin-Szymanowski
EXP Systems LLC
|
|