cmdbtn to save as pdf with cell values

[DB73]

Hi,

I want to save a file as PDF with a cmdbtn
i want the filename as set as in a cell, like cell A1
i also want the path name as a cell value/text, co i can change the path if neccecary.

pathname for now is like desktop...dont know if it matters if its a onedrive path ?
and also dont know if there should be a folder on the desktop

i have someting like this, but doesnt seems to work;

Private Sub CommandButton2_Click()
Dim wks As Worksheet
Set wks = ActiveSheet

Dim Path As String
Path = ActivesheetRange(“D2”).Value

Dim filename As String
filename = ActiveSheet.Range(“I18”).Value

ActiveSheet.ExportAsFixedFormat Type:=TypePDF, filename:=filename
End Sub

 

[mohadin]

Hi
Try

Sub test()
    Dim wks As Worksheet
    Dim fname As String
    Set wks = ActiveSheet
    Dim fPath As String
    fPath = ActiveSheet.Range("D2").Value
    fname = ActiveSheet.Range("A1").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=fPath & fname
End Sub

BTW should not use excel keyword as variable
in this case filename

 

[DB73]

Hi Mohadin,

it doesnt seem to work.
but i also dont get any error
i changed it to;

Sub commandbutton2()
    Dim wks As Worksheet
    Dim fname As String
    Set wks = ActiveSheet
    Dim fPath As String
    fPath = ActiveSheet.Range("D2").Value
    fname = ActiveSheet.Range("I18").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=fPath & fname
End Sub

 

[mohadin]

Ok
Can you show the contents of Range("I18")
It should be ended with \
So either add it manually or

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=fPath & "\" & fname

 

[DB73]

this should be my desitation folder

and this the file name

i added the line now bcause i dindnt had that slash

but still not working, withou any errors given.
mabe the files are saved on another location, but i cant find them

 

[DB73]

must be;

 

[mohadin]

Then try to map it to desktop

C:\Users\****\Desktop\ '<< chang *** to your pc name and see what​

 

[DB73]

Then try to map it to desktop

C:\Users\****\Desktop\ '<< chang *** to your pc name and see what​

sorry, still doesnt work.

 

[DB73]

got it working with:

Private Sub CommandButton2_Click()
    ActiveWorkbook.Save
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
    Range("A1").value, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

A1 = formula CONCATENATE(D3;"any text";I19;"_any text";I20)

D3 ist path name with "\" at the end
any text for me is text "invoice No.
I19 = file name of the PDF as i want
any text is for me "_date"
I20= invoice date

A1 is hidden.
just have to adjust the path in D3, I19 file name and I20 date