Create a print macro that would automatically select print area?

W

wastedwings

How do I create a macro to automatically select the print area that has
contents in certain cells?
 
W

wastedwings

I have a worksheet that contains information that updates from another
worksheet (contains links). I print the worksheet out each time it is
updated, but I would like to create a macro that would automatically select
the print area of the cells that contain information, instead of going in and
selecting the print area. Since there are cells that do not have information,
but contain links to another worksheet for future linking, hitting the print
button will not print the cells that contain information only, but will only
print a portion of the worksheet.
 
R

Ron de Bruin

but contain links to another worksheet for future linking

Maybe this is a easy solution for you

If you have zero's in the cells then you can use
Tools>Options...View
Uncheck Zero values
 
W

wastedwings

Ok, I tried that. Now when I check the print preview, it prints like 17 pages
of empty cells. How can I create a macro to Print using "print if cells
contain...."?
 
R

Ron de Bruin

We can make a filter / print macro
Do you have headers above your data and if you do in which row
Can we check one column in your data table if it contains data <> then 0 (which column)

I will make a example for you if you give me the information
 
R

Ron de Bruin

OK

Try this for a sheet named "Sheet1"

Note: I filter on the A column for non zeros so i assume that you don't have zeros in your
data in column A.(only zeros below your data)

Delete preview:=True if it is working correct

Sub Test_With_AutoFilter()
Dim WS As Worksheet
Dim rng As Range
Dim Str As String

Set WS = Sheets("sheet1") '<<< Change
'A1 is the top left cell of your filter range and the header of the first column
Set rng = WS.Range("A1").CurrentRegion '<<< Change
Str = "<>0" '<<< Change

'Close AutoFilter first
WS.AutoFilterMode = False

'This example filter on the first column in the range (change the field if needed)
rng.AutoFilter Field:=1, Criteria1:=Str
WS.PrintOut preview:=True
WS.AutoFilterMode = False
End Sub
 
Top