How to select a printer and number of pages within a macro

I use Excel Macros for most of my repetitive tasks but have struggled to write one that will select different printers and then print a specified number of pages.
Typically I fill out a form in Excel and when complete, save a pfd copy in a specific folder using the name in a cell on the spreadsheet and then print anywhere from 1-10 hard copies.

I would normally record my actions and then tweak the macro but can't seem to change the printer, save the file as a cell reference or get the 'Copies' to look up a cell in the spreadsheet. Despite making the changes whilst recording the macro I only get the following which does not tell me where the file is being saved or what the name is.

Sub Save_and_print()

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=4, Collate _
:=True, IgnorePrintAreas:=False
End Sub

I then try to select the printer before each routing by changing the macro to the following:

Sub Save_and_print()

Application.acivePrinter = "Microsoft Print to PDF on Ne00:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False

Application.acivePrinter = "Canon MG6200 series Printer on Ne01:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=4, Collate _
:=True, IgnorePrintAreas:=False
End Sub

and changing the 'Copies:=4,' to 'Copies:="L16"' which is referring to a dropdown cell using 1-10 and this is where it falls down.

Does anyone understand what I am doing wrong as normally I can edit most parts of a recorded macro but have been struggling on printing for ages?

Please Login or Register  to view this content.

I was expect that in L16 you've got a number only.
If in L16 you got text like 'X pages', try like:

Please Login or Register  to view this content.

Probably just a typo.

Please Login or Register  to view this content.

Eagle-eyes Bakerman2 well spotted and all is perfect. We are doing tests as we speak and so far is looking good. The polished Macro is:

Sub Save_and_print()
'
' Save pdf as cell reference
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\WDMYCLOUD\Euromatic\Invoices\" & Range("G3") & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=True
'
' Set the active Printer
'
Application.ActivePrinter = "Canon MG6200 series Printer on Ne01:"
'
' Print desired number of copies from a cell
'
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Range("K4").Value, Collate _
:=True, IgnorePrintAreas:=False
End Sub

The only comment is per the earlier thread and making it idiot proof because if a pdf file with the same name already exists in the directory then the macro will overwrite without warning. I tried to write a line starting

If FileExists("\\WDMYCLOUD\Euromatic\Invoices\" & Range("G3") & ".pdf") then MsgBox...

but this fails and have no idea how to put up a warning message box even though I understand partly the

MsgBox(Prompt,[Buttons As VbMsgBoxStyle = vbOkOnly],[Title],[HelpFile],[Context]) As vbMsgBoxResult

Can anyone help on this so I can publish in case anyone else want to use it?