Save to PDF

[jlwag]

I have the following macro that prints to the printer just find, but I would like to know how to send them to a PDF file instead.

Sub PrintAllMSEL()

RowCount = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row - 1

Worksheets("PrintMSEL").Select
For i = 1 To RowCount
Range("B1").Value = i
ActiveSheet.PrintOut copies:=1
Next i
End Sub

 

[jolivanes]

Worksheets("PrintMSEL").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & "Name to be saved as here" & ".pdf"

Saves in the same folder where the excel workbook resides.

 

[jolivanes]

In your Post #1, is Sheet1 the same as the Sheet you're printing ("PrintMSEL")?

 

[jolivanes]

If Sheet1 and "PrintMSEL" are the same sheet and your print range has been set, this should be what you need.
If these assumptions are wrong, you'll have to explain in detail what is required.

Sub To_PDF()
Dim i As Long
Dim sh1 As Worksheet
Set sh1 = Worksheets("PrintMSEL")
    For i = 1 To sh1.Cells(Rows.Count, 1).End(xlUp).Row
        sh1.Cells(1, 2).Value = i
        Worksheets("PrintMSEL").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & sh1.Name & "-" & sh1.Cells(1, 2).Value & ".pdf"
    Next i
End Sub

 

[jlwag]

Perfect and thank you.

 

[jolivanes]

Thanks for letting us know and good luck