Select range betwen two dates, set print range and print to pdf

[picklefactory]

Hi folks
Struggling with some VBA.... as usual

I have a new sheet I'm working on. It has 8 columns of data A:H and headings in Row 1. Column A contains a date (d/m/yy) for data to be entered, there could well be multiple instances of the same date, so not a unique value. I have a userform to very simply (He says....) select a start date in textbox1 and an end date in textbox2 and a command button (CommandButton1) to action, which would then hopefully select a range between the 1st instance of start date and last instance of end date, set that as print range, including the headers in Row1 and print to pdf.
Is that feasible, or am I being daft, as usual? Not something I've tried before and not a clue where to start.
Thanks

 

[John_w]

Put this code in a standard module:

Public Sub Save_Dates_Range_As_PDF(startDate As Date, endDate As Date)

    With ThisWorkbook.ActiveSheet
        
        'Filter between start and end dates in column A
        .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & CLng(startDate), Operator:=xlAnd, Criteria2:="<=" & CLng(endDate)
    
        'Save filtered data as PDF file in same folder as this workbook
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Data " & Format(startDate, "dd-mm-yyyy") & " to " & Format(endDate, "dd-mm-yyyy") & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
                    
        'Turn off autofilter
        .AutoFilterMode = False
    
    End With
    
End Sub

And call it from your Userform module's CommandButton1 Click event handler like this:

Private Sub CommandButton1_Click()
    Save_Dates_Range_As_PDF TextBox1.Value, TextBox2.Value
End Sub

 

[picklefactory]

I was just having a go, and thought I was getting somewhere, but your solution works perfectly.

I changed the open after publish to true, so it opens the pdf. If that was left as false.... where does it save it?

Thank you so much for your time and help..... us numpties would be lost without you guys.

 

[picklefactory]

"If that was left as false.... where does it save it?"

Please ignore.... I managed to spot the obvious.....
Thanks again... works perfectly