Save as PDF Printing

[vbanovice2701]

Hi,
I am trying to save a file as a PDF based on a particular cell value. The below macro appears to work once only, then it seems to want to print. Can someone please help, I am going round in circles with different coding

Sub SavePDF()
'
' SavePDF Macro

Dim file As String

Sheets("XXX").Activate

file = Cells(16, 13).Text


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="/office/XXX/" & file

End Sub

 

[Micron]

I see no reason why it should want to print unless this code is unexpectedly calling some other code, or perhaps that is the behaviour when your separators are backwards ( / vs \ ). I'm surprised that works. Not sure what you mean that it only works once. That should be the case, unless you're changing cell reference or value in between calls. By that I mean if you try to use the same cell value for multiple calls (and assuming this makes the entire file path the same each time) you should raise an error.

 

[vbanovice2701]

I see no reason why it should want to print unless this code is unexpectedly calling some other code, or perhaps that is the behaviour when your separators are backwards ( / vs \ ). I'm surprised that works. Not sure what you mean that it only works once. That should be the case, unless you're changing cell reference or value in between calls. By that I mean if you try to use the same cell value for multiple calls (and assuming this makes the entire file path the same each time) you should raise an error.

Thanks for the reply. It runs perfectively fine the first time you run the macro. The cell reference doesn't change, just the value in it (which is pasted values from another cell which is formula)