Thread: Print to PDF

Hi,

I have the following code which i got previously from this forum which i now need to change. I need the code to now print to a pdf and be saved in a particular folder which is the same for all pdf copies. Each pdf is to be named in the following manner "DT_[Name contained in cell B9]_[date in reverse order]"

Thanks for your help.......

Sub print_tenderers4()

With Worksheets("Suppliers")
    lrow = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        If .Range("T" & i).Value = "Yes" Then
            Worksheets("Drawing Register").Range("B9").Value = .Range("B" & i).Value
            Worksheets("Drawing Register").Select
            ActiveWindow.ActiveSheet.PrintOut copies:=1, collate:=True
        End If
    Next i
End With

End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Yes thanks. See this