Excel sheet to PDF

[rockchalk33]

Hey all,

Need a little help writing a macro to:

1.) Fit all columns on one page
2.) Open that specific page (specifically Sheets("Sheet5")) in a PDF file with all columns on that page

Thanks,

Devin

 

[Trustee]

Hi there,

Please follow the steeps:

• Click the Page Layout tab;
• Go to the Page Setup group;
• Click the arrow button at the bottom right corner;
• Then you will enter the page tab of Page Setup dialog box.
• Then File ----> Save as ----> Format ----> PDF.

Hope this will help you !

 

[rockchalk33]

Hi there,

Please follow the steeps:

• Click the Page Layout tab;
• Go to the Page Setup group;
• Click the arrow button at the bottom right corner;
• Then you will enter the page tab of Page Setup dialog box.
• Then File ----> Save as ----> Format ----> PDF.

Hope this will help you !

Appreciate the help but I actually need a sub routine to do this.

 

[Kenneth Hobson]

There are too many setting to show all of them. Record a macro and do the steps explained in #2.

Then do something like this and modify to suit your options.

Sub Main()
  Dim fn$
  fn = Environ("temp") & "\Rock.pdf"
  With Sheets("Sheet5")
    .PageSetup.PrintArea = .UsedRange.Address
    With .PageSetup
      
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
    .ExportAsFixedFormat xlTypePDF, fn, OpenAfterPublish:=True
  End With
End Sub

 

[rockchalk33]

There are too many setting to show all of them. Record a macro and do the steps explained in #2.

Then do something like this and modify to suit your options.

Sub Main()
  Dim fn$
  fn = Environ("temp") & "\Rock.pdf"
  With Sheets("Sheet5")
    .PageSetup.PrintArea = .UsedRange.Address
    With .PageSetup
      
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
    .ExportAsFixedFormat xlTypePDF, fn, OpenAfterPublish:=True
  End With
End Sub

Thanks!