VBA Excel to Pdf

[s3v3r]

Hi

Thanks beforehand.

My problem is that im trying to create a pdf from an excel sheet but I need to create a single pdf with a single page with the same sheet, cutting ranges from the excel and and pasting them on top of another... they are different tables.

 

[Yongle]

Is this what you want

Sub copyTablesPDF()
    Dim ws As Worksheet:    Set ws = Sheets("Sheet1")
'copy tables
    Sheets("Sheet2").ListObjects("tbl_manning").Range.Copy ws.Range("A1")
    Sheets("Sheet4").ListObjects("tbl_result").Range.Copy ws.Range("A" & Rows.Count).End(xlUp).Offset(2)
    Sheets("Sheet3").ListObjects("tbl_cost").Range.Copy ws.Range("A" & Rows.Count).End(xlUp).Offset(2)
'save sheet1 to pdf
    ws.UsedRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\testarea\tables.pdf"
End Sub

they are different tables

The above code assumes that your ranges are Excel Tables (ie created with Insert \ Table)

If they are they tabulated ranges
instead of

    Sheets("Sheet2").ListObjects("tbl_manning").Range.Copy ws.Range("A1")

use this method

    Sheets("Sheet2").Range("A1:D10").Copy ws.Range("A1")