Create Button for form

[MariPip]

Hi there!
I'm trying to create a button that saves the information thas is in predifined cells of a Worksheet onto a PDF document on a specific location and resets the value of the cells!
I hope I was clear enough explaining it...
Thank you!

 

[ParamRay]

Try using this code. You can assign the macro to a form control button if you wish.

Sub Test()

    Dim ExportRange As Range
    Dim FName As String
    
    'Set range to be exported
    Set ExportRange = Worksheets("Sheet1").Range("A1:J10")
    
    'Set filename for export
    FName = "C:\Users\jsmith\Desktop\Book1.pdf"
    
    'Export the range
    ExportRange.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FName
    
    'Clear contents of exported range
    ExportRange.ClearContents
    
End Sub

 

[MariPip]

Thank you so much!!

Try using this code. You can assign the macro to a form control button if you wish.

Sub Test()

    Dim ExportRange As Range
    Dim FName As String
    
    'Set range to be exported
    Set ExportRange = Worksheets("Sheet1").Range("A1:J10")
    
    'Set filename for export
    FName = "C:\Users\jsmith\Desktop\Book1.pdf"
    
    'Export the range
    ExportRange.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FName
    
    'Clear contents of exported range
    ExportRange.ClearContents
    
End Sub