How do I use the .pagesetup properly?

[vbaNumpty]

I am trying to use different page setups but I get object errors. What is the proper way to use the page setup arguments?

Sub Print_DB()

    Dim db As Worksheet

    With db
        
        .PageSetup.FitToPagesWide
        .PageSetup.PaperSize = xlPaperLetter
        .PageSetup.Orientation = xlLandscape
        
        
    End With
    
    Range("DBPrint").PrintPreview

End Sub

 

[Domenic]

First, you've declared db, but you haven't assign it a worksheet. Secondly, you haven't assigned a value to the FitToPagesWide property. Try the following...

Sub Print_DB()

    Dim db As Worksheet
    Set db = Worksheets("Sheet1") 'change the sheet name accordingly

    With db.PageSetup
        .FitToPagesWide = 1
        .PaperSize = xlPaperLetter
        .Orientation = xlLandscape
    End With
  
    Range("DBPrint").PrintPreview

By the way, you can speed up things a bit by setting the PrintCommunication property to False before your code, and then back to True afterwards...

Sub Print_DB()

    Dim db As Worksheet
    Set db = Worksheets("Sheet1") 'change the sheet name accordingly

    Application.PrintCommunication = False
    With db.PageSetup
        .FitToPagesWide = 1
        .PaperSize = xlPaperLetter
        .Orientation = xlLandscape
    End With
    Application.PrintCommunication = True
  
    Range("DBPrint").PrintPreview

End Sub

Hope this helps!

 

[vbaNumpty]

First, you've declared db, but you haven't assign it a worksheet. Secondly, you haven't assigned a value to the FitToPagesWide property. Try the following...

Sub Print_DB()

    Dim db As Worksheet
    Set db = Worksheets("Sheet1") 'change the sheet name accordingly

    With db.PageSetup
        .FitToPagesWide = 1
        .PaperSize = xlPaperLetter
        .Orientation = xlLandscape
    End With
 
    Range("DBPrint").PrintPreview

By the way, you can speed up things a bit by setting the PrintCommunication property to False before your code, and then back to True afterwards...

Sub Print_DB()

    Dim db As Worksheet
    Set db = Worksheets("Sheet1") 'change the sheet name accordingly

    Application.PrintCommunication = False
    With db.PageSetup
        .FitToPagesWide = 1
        .PaperSize = xlPaperLetter
        .Orientation = xlLandscape
    End With
    Application.PrintCommunication = True
 
    Range("DBPrint").PrintPreview

End Sub

Hope this helps!

Thanks a lot for explaining it! Appreciate it.

 

[Domenic]

You're very welcome, cheers!