VBA for Excel (365), how to print to PDF, while scaling to fit all columns to a single page wide?

[cagross]

Hello. Using VBA for Excel (Office365), how can I print an Excel worksheet to PDF, while scaling to fit all columns to a single page wide? In my VBA script, I have already set: `FitToPagesWide = 1`. Here is more information.

For the past few years I've used Office 2013, and with it, a particular VBA for Excel script which would print a worksheet to PDF, while scaling to fit all columns to a single page wide. I recently updated to Office365 and the same VBA script is now printing to PDF, but not scaling to fit all columns to a single page wide. Any ideas why that is occurring and how to resolve it?

See this Pastebin for my VBA function.

Thanks in advance.

[#2]

@cagross 

As far as I had to learn here...

(This information without guarantee, I would be happy to be instructed if it could work.
MS changes, develops and refines its products so well and quickly that you can hardly keep up with them. They are that good! :).

Click the Link for more info about this issue, Please:

This feature is not available in Excel for the web.

If you have the Excel desktop application, you can use the Open in Excel button to open the workbook and scale the worksheet to fit data on one page.

Fit to one page

Excel for Microsoft 365 Excel for the web Excel 2019 Excel 2016 Excel 2013

https://support.microsoft.com/en-us/office/fit-to-one-page-f3015be3-e007-4762-90a7-19ebc8052511?ui=e...

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)

[#3]

@NikolinoDE Thanks for the reply.  I had a look at that link.  Unless I'm missing something though, it describes how to print using the GUI provided by the Excel application.  I'm asking how to print using VBA for Excel.  Did I miss that information somewhere in the link you provided?

[#4]

@cagross 

All versions of Office 365 will allow execution and creation of Macros, it is only the free online version that will not.

Mean with it, only MicrosoftOffice 365 (browser version) does not support VBA macros.

Does Office 365 Online version supports VBA(visual basic for applications)?

https://social.technet.microsoft.com/Forums/office/en-US/7c46823c-2581-47a6-baac-66fb99ac3ea8/does-o...

Work with VBA macros in Excel for the web

Excel for the web

https://support.microsoft.com/en-us/office/work-with-vba-macros-in-excel-for-the-web-98784ad0-898c-4...

Enable or disable macros in Office files

https://support.microsoft.com/en-us/office/enable-or-disable-macros-in-office-files-12b036fd-d140-4e...

VBA Macros in Excel (office 365)

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other-mso_365hp/vba-macros-in-...

 I hope that with this information I was able to help you in any way.

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)

[#5]

@NikolinoDE I appreciate the reply, but those links aren't giving me any helpful information for my question.  I'm asking for specific help on why my VBA code isn't doing what I expect.

[#6]

@cagross 

In order not to be misunderstood, the goal of some Excel users in the community is to provide help with projects by Excel users, or rather to provide food for thought.
As part of this excellent forum, my aim is to give help to get help where I can and need it.
That's why I try (like some others here) to help voluntarily as far as I can.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        VerzeichnisName & "\" & Name, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
With ActiveSheet.PageSetup
        .Zoom = False
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
'Check your code to see if you have used zoom correctly.
'Is just a suggestion doesn't have to be right ... 
'because I know that I don't know anything.

 The only thing I can do for you is this VBA code.
But since I don't have a 365 Office desktop version (like you, as far as I could see your written version) I can't help you any further.
I think that one of Microsoft will take care of your question.
I'm sure they will give you a specific or official answer.
In the meantime, please be patient, we have weekend :)

Sorry that I took your time and couldn't give you a quick solution.

Wish you a nice day/night.

Nikolino

I know I don't know anything (Socrates)

[#7 · Accepted solution]

@NikolinoDE Sorry for the late reply. Thanks for the help.  I was able to resolve the issue in another MS forum (see here).

[#8]

@cagross 

I am pleased that you were able to find a solution to your project.
I wish you good luck with Excel.

Thank you for your time and patience

Nikolino
I know I don't know anything (Socrates)