Print Page | Close Window

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: 27 Nov 22 at 1:58PM


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



Print Page | Close Window