Problem printing on Excel for Mac 2016/2019/365

[mcomp72]

I'm making a workbook for both Windows & Mac. I have a button in my workbook that allows them to PRINT worksheets, and another that allows them to make a PDF of worksheets.

Both buttons work perfectly on Windows. On Mac 2016/2019/365, the PDF button works fine. It’s the PRINT button that sometimes causes a problem. It doesn't work properly when the user has pressed the PDF button before pressing the PRINT button. In that case, the .PrintOut line of code either gives an error, or saves a PDF file instead of printing.

If I close the workbook and reopen it, it will print fine UNTIL I create a PDF, and then the problem happens again. I feel like this must be a bug in Excel, but am not 100% sure. I can only test it on my one Mac computer, so I know it's possible it might have something to do with my computer.

I have created a new workbook to test this. This one is only one worksheet and is very simple. I would like to ask the community here if they'd be willing to test it for me. (You need to have Excel for Mac 2016, 2019, or 365.)

You can download the file at the below link. There are instructions on the worksheet explaining the three steps you should follow. Please post your results back here

Thank you! It is much appreciated!!

https://www.dropbox.com/s/lsrsui1st2bomxq/TestWorkbook-PrintAndPDF_Mac.xlsm?dl=0

 

[mcomp72]

FYI -- since I haven't received any replies here, I'm going to post this to some other forums.

 

[Fluff]

In that case can you please supply links to any other sites where you have asked this.
Thanks

 

[mcomp72]

I posted it on Stack Overflow and at a Microsoft forum.

 

[mcomp72]

By the way, if anyone would be willing to try it on their Mac but would rather not download the test workbook I created, here is the code you could insert into a new workbook to test it.

Sub PrintButton()


'this should send Sheet1 to the default printer
 
ThisWorkbook.Sheets("Sheet1").PrintOut Preview:=False, IgnorePrintAreas:=False


End Sub


Sub PDFButton()


'this should create a PDF file of Sheet1 on the Desktop of the Mac


Dim UserName As String
Dim FileNameAndPath As String


ThisWorkbook.Sheets("Sheet1").Activate


UserName = MacScript("do shell script ""echo $USER""")


FileNameAndPath = "/Users/" & UserName & "/Desktop/TestPDF.pdf"


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FileNameAndPath, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False


End Sub

The way to test it is:

1. Run the PrintButton sub. It should send "Sheet1" to your printer.
2. Run the PDFButton sub. It should create a PDF of "Sheet1" on your desktop.
3. Run the PrintButton sub again. This is where the problem is happening for me. I am curious if it works properly for you, or if you receive an error? I received Run-time 1004 error. (I have seen in some circumstances that instead of it printing the sheet here or throwing the error, it makes a PDF when it gets to the .PrintOut line.)