VBA code to create PDF for printing

[MacroNobie]

Hi everybody,

I am looking for a code, which creates a Pdf from the active sheet (specific range), so you can print that Pdf. Is there a way to do that without specifying a path where to save the file because it is only needed for printing?

Thanks for your help!

Best regards,
Nawid

 

[Yongle]

why create a pdf?
- you can print a range from Excel

 

[MacroNobie]

My problem is I have hidden rows and it does not show these rows when I normally press on print but it also would be nice to create a print button. Can you help on that part?>
Thanks a lot!

 

[Yongle]

how about some VBA TO ...
- MAKE VISIBLE all "hidden" rows
- PRINT selected pages
- HIDE previously "hidden" rows

like this...

Sub PrintPages()
    Dim first As Integer, last As Integer
    Dim UsedRng As Range, HiddenRng As Range, cel As Range
    Set UsedRng = ActiveSheet.UsedRange.Resize(, 1)
    Set HiddenRng = ActiveSheet.Cells(Rows.Count, 1)
'determine hidden rows
    For Each cel In UsedRng
        If cel.EntireRow.Hidden Then Set HiddenRng = Union(HiddenRng, cel)
    Next
'make them visible
    HiddenRng.EntireRow.Hidden = False
'print required pages
    first = InputBox("First page?", "Print from...", 1)
    last = InputBox("Last page?", "Print up to...", 1)
    ActiveSheet.PrintOut From:=first, To:=last
'hide the rows again
    HiddenRng.EntireRow.Hidden = True
End Sub

 

[MacroNobie]

Thanks Yongle! Great idea, worked for me just fine!

 

[Yongle]

thanks for the feedback