save xlsm to pdf in pages

[kingcc]

I want a macro to save xlsm to pdf in range.
I have this macro but many times the range changes.
It is better to say the pages.
For example my macro save the sheet from 1 to 30 page.
But I gave the range of these pages not the number.
First is hot to write it as pages.
And second how can i change the 1 to 30 pages.
For example to 1 to 20 pages?
I am thinking with a box dialog.
<code>Sub TOPDFSELALL()

Sheets("teliko").Range("a1:H390").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\katalogoi\Book1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub
</code>

 

[FormR]

Hi, welcome to the forum; you can give this a try:

Sub TOPDFSELALL()


Dim FromPage As Long, ToPage As Long


FromPage = Application.InputBox("Enter the from page number", Default:=1, Type:=1)
ToPage = Application.InputBox("Enter the to page number", Default:=1, Type:=1)


Sheets("teliko").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\katalogoi\Book1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True, From:=FromPage, To:=ToPage


End Sub

 

[kingcc]

Thanks a lot
it was what i need exactly
you save my day