having problems with layout saving to pdf

[Ratigan1970]

hi again all in vba land
im not sure if its more vba needed to change the layout of the pdf
when i us this macro

Sub SaveSelectionAsPDF()

Dim saveLocation As String
Dim myCells As Range
Set myCells = Selection



saveLocation = "D:\PAY.pdf"

  
    myCells.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\PAY.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, _
    OpenAfterPublish:=True
End Sub

there are pics below and there is also the link too the macro to select the ranges to save
link to post
Im trying to get all the colums on one pdf sheet

can anyone help me please

 

[jolivanes]

You can try so. Select cells of two columns first.

Sub Save_As_PDF()
Dim lr As Long, col As Long, i As Long
Dim ws As Worksheet
Dim fn As String
Set ws = ThisWorkbook.Worksheets("Sheet2")    <---- Change required
lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
col = Selection.Column
fn = ws.Cells(1, col).Value
ws.PageSetup.PrintArea = ws.Cells(1).Resize(lr, col + 1).Address
Application.ScreenUpdating = False
    For i = ws.Cells(3, ws.Columns.Count).End(xlToLeft).Column To 4 Step -1
        If i > 3 And i < col Or i > col + 1 Then ws.Cells(3, i).EntireColumn.Hidden = True
    Next i
ActiveSheet.ExportAsFixedFormat 0, "C:\PDF Saved\" & fn & ".pdf"    <---- Change required
Columns.EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

Artik probably has a better macro because he/she is a lot better at this than I am.

 

[jolivanes]

Select the cells in the two columns and run this macro.

Sub Save_As_Pdf_2()
Dim ws As Worksheet
Dim fn As String
Set ws = ThisWorkbook.Worksheets("Sheet2")'    <---- Change required
fn = ws.Cells(1, Selection.Column).Value
ws.PageSetup.PrintTitleColumns = ws.Columns("A:C").Address
ws.PageSetup.PrintArea = Selection.Address
ws.ExportAsFixedFormat 0, "C:\PDF Saved\" & fn & ".pdf" '   <---- Change required
End Sub

 

[Ratigan1970]

thank you so much for your code jolivanes
it works spot on

 

[jolivanes]

Thank you for letting us know that all is well again in your excel world.

In this case, the code from Post #3 should work for you but if you ever have a scenario where the columns at the left are not adjacent to each other, you can use the code from Post #2 by hiding the not needed columns.