Print Macro

[davidhall]

I have data that appears from Cell B83 to Z147. The entire area isn't always populated and information filters into this area based on other criteria. In column A, I have 0's and 1's which acts as the filtering mechanism. Any row with a 0 in it remains hidden. Any row with a 1 is visible. My filtering mechanism does apply to other contents above row 83 but I only need the data within the range mentioned above to print.

The button I am assinging this macro to needs to fit the data to the page and print to my printer named PDFCreator.

Any suggestions?

 

[syntaxed]

Something along these lines may work:

Private Sub CommandButton1_Click()
 
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="1"
 
With ActiveSheet.PageSetup
    .PrintArea = "C83:Z147"
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With
 
ActiveSheet.PrintOut ActivePrinter:="PDFCreator"
 
End Sub

 

[davidhall]

Thanks. It works perfect.

 

[davidhall]

One more quick question. If I wanted the print function to ignore the data in the range of D83 to G147 but print everything else in the initial range of B83 to Z147, how would I go about doing that?

 

[Asator]

Columns("D:G").EntireColumn.Hidden = True
 
' Do stuff
 
Columns("D:G").EntireColumn.Hidden = False

 

[davidhall]

Thanks