Print Table on One Page

[NorthbyNorthwest]

Hi, everyone. I'm trying to print a table (listobject) on a single page. But the code fails and prints table on two pages. Could someone tell me what I'm doing wrong?

Sub PrintAssignments()
Sheet11.Activate
With ActiveSheet
    .PageSetup.PrintArea = .ListObjects("Assignment").Range
    .PageSetup.Orientation = xlLandscape
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = 1
End With
ActiveSheet.ListObjects("Assignment").Range.PrintOut
End Sub

 

[HaHoBe]

Hi,

AFAIK FitToPagesWide = 1 is the parameter to fit in the ListObject to match the width of the page. Only those records fitting in will get printed on page 1, any more will follow up on page 2.

Maybe this is what you want to get:

Sub PrintAssignments_mod()
' https://www.mrexcel.com/board/threads/print-table-on-one-page.1223624/
With Sheet11
  With .PageSetup
    .PrintArea = Sheet11.ListObjects("Assignment").Range.Address
      .CenterHorizontally = True
      .CenterVertically = True
      .Orientation = xlLandscape
      .Zoom = False
      .FitToPagesWide = False
      .FitToPagesTall = 1
  End With
  .ListObjects("Assignment").Range.PrintOut
End With
End Sub

Ciao,
Holger

 

[NorthbyNorthwest]

Hi,

AFAIK FitToPagesWide = 1 is the parameter to fit in the ListObject to match the width of the page. Only those records fitting in will get printed on page 1, any more will follow up on page 2.

Maybe this is what you want to get:

Sub PrintAssignments_mod()
' https://www.mrexcel.com/board/threads/print-table-on-one-page.1223624/
With Sheet11
  With .PageSetup
    .PrintArea = Sheet11.ListObjects("Assignment").Range.Address
      .CenterHorizontally = True
      .CenterVertically = True
      .Orientation = xlLandscape
      .Zoom = False
      .FitToPagesWide = False
      .FitToPagesTall = 1
  End With
  .ListObjects("Assignment").Range.PrintOut
End With
End Sub

Ciao,
Holger

Thanks for the response, Holger. You are correct, it was the columns which were forcing a second page.