After saving a pdf with one macro . Another macro will no longer PrintOut

[cocobeans]

Hello , After I use the Macro titled SaveRangeAsPDF the macro titled Printestimate will not Printout to the printer .When I run the subs in this order the PrintEstimate sub will quickly show a box that says processing but the printer icon does not show 1 and nothing prints.

If I use the PrintEstimate sub before the SaveRangeAsPDF I can use it as many times as I want with no issue and it works perfectly.

Ideally I would like to combine these two subs into one and be able to run it as many times as I want. This is due to me changing data and then wanting to save pdf and printout .
Any help would be greatly appreciated.

Sub SaveRangeAsPDF()

Dim saveLocation As String
Dim rng As Range

With ActiveSheet.PageSetup

.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'This is the file destination and range
saveLocation = "/Users/boauman/Desktop/Bobs Personal/Estimate pdf/"
Set rng = Range("$A$108:$F$160")


'Save a range as PDF
rng.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=saveLocation & Range("B1").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


ActiveSheet.PageSetup.Zoom = 87

End Sub


Sub Printestimate()

With ActiveSheet.PageSetup

.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.Goto Reference:="ESTIMATE"
ActiveSheet.PageSetup.PrintArea = "$A$108:$F$160"

Range("A108:F160").Select
ActiveSheet.PageSetup.PrintArea = "$A$108:$F$160"
Selection.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.Zoom = 87
End Sub

 

[rlv01]

I tried your code and It works for me. PrintEstimate prints after SaveRangeAsPDF is run. I had to comment out this line

Application.Goto Reference:="ESTIMATE"

because you had no information about the reference.

 

[cocobeans]

Thanks for the reply rlvo1. I have other subs in the same module ,perhaps they are some causing bugs . I will have to investigate further.

 

[cocobeans]

rlv01 .I am really new to coding. I didn't mention that I am using a mac with this code. I think that might be part of the problem.

It seems that when I create the pdf first then its like it has changed the printer default to pdf printer of some sort and It no longer finds the original printer.

I have tried the code

MsgBox ActivePrinter

to find the name of the active printer . So I can reset the printer with Application.ActivePrinter after running the pdf macro,but it returns:

unknown printer (check your Control Panel)


Is there a way to set the active printer on mac.

I have seen this exact issue in other forums but could not find a solution.

Thanks.

 

[daverunt]

Hi,

Can't help with MAC VBA for that but is this any use?

Both Windows 10 and Apple OS have settings to allow the default printer to be the last used. You can change settings it so it doesn't do that.
However I don't know if that will stop the export to pdf working properly!

Choose your default printer on Mac

On your Mac, change your default printer and change your printer’s name and location.

support.apple.com

How to set default printer on Windows 10 - Pureinfotech

To change default printer on Windows 10, open Settings > Printers & scanners, click "Manage" on the printer, and click "Set as default."

pureinfotech.com

 

[cocobeans]

Hi,

Can't help with MAC VBA for that but is this any use?

Both Windows 10 and Apple OS have settings to allow the default printer to be the last used. You can change settings it so it doesn't do that.
However I don't know if that will stop the export to pdf working properly!

Choose your default printer on Mac

On your Mac, change your default printer and change your printer’s name and location.

support.apple.com

How to set default printer on Windows 10 - Pureinfotech

To change default printer on Windows 10, open Settings > Printers & scanners, click "Manage" on the printer, and click "Set as default."

pureinfotech.com

Thanks for the reply daverunt. I looked in my settings and default is not set to use last printer used its on the onwe i want to use. So that's not it.

 

[daverunt]

It was worth a shot.

Have you tried setting up the original default printer then running the Application.ActivePrinter to get its name so you then know what to reset it to?

 

[cocobeans]

It was worth a shot.

Have you tried setting up the original default printer then running the Application.ActivePrinter to get its name so you then know what to reset it to?

Yes I have tried that but it returns "unknown printer (check your Control Panel)"

 

[rlv01]

Can you save your current (working) printer before you run your SaveRangeAsPDF macro, then restore it after?

Sub PrinterTest()
    Dim CurrentPrinter As String

    CurrentPrinter = Application.ActivePrinter        'save current active printer
    MsgBox "Current Printer:" & vbCr & vbCr & Application.ActivePrinter, vbOKOnly, "Active Printer"

    Call SaveRangeAsPDF

    MsgBox "Current Printer:" & vbCr & vbCr & Application.ActivePrinter, vbOKOnly, "Active Printer"    'see what the active printer is after running SaveRangeAsPDF

    Application.ActivePrinter = CurrentPrinter        'restore active printer to saved value
    MsgBox "Current Printer:" & vbCr & vbCr & Application.ActivePrinter, vbOKOnly, "Active Printer"
End Sub

 

[cocobeans]

Hello,
Thanks but that returns the same message:
"unknown printer (check your Control Panel)" three times and the problem continues.