Vb code to print a page #

  • Thread starter Thread starter Felice
  • Start date Start date
F

Felice

Does anyone know a vb code to print a specific page # if a
certain cell is not null or has a specific value?
 
Try this

It will print page 4 of Sheet1 if cell A1 have a value higher then 10

Sub test()
With Sheets("Sheet1")
If .Range("A1").Value > 10 Then
.PrintOut from:=4, To:=4, _
Copies:=1, Collate:=True
End If
End With
End Sub
 
Felice,
assume cell to check is A1

if range("a1")="" or range("A1")=Your_Value then
sheets(1).Printout from:=your_page, to:=your_page
end if

Throw this in the worksheet_change event, and it should work for you.

Steve
 
Back
Top