Thread
:
Print macro help
View Single Post
#
4
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Print macro help
This will do it from anywhere in the workbook, withOUT selections. Pay
attention to the . s in the with statement.
Sub printrng()
With Sheets("PDSR")
lr = .Columns("y").Find(0).row
..Range(Cells(1, 1), Cells(lr, 12)).Printout 'Preview
End With
End Sub
--
Don Guillett Excel MVP
SalesAid Software
"ADK" wrote in message
...
macro beginner
I have the following set to a command button to print. So far the macro
sets the print area perfectly the way I want it. I just need to know what
is missing after the print area is defined to actually send it to the
printer
Private Sub CommandButton1_Click()
Worksheets("PDSR").Activate
Set c = Worksheets("PDSR").Columns("Y"). _
Find("0", LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets("PDSR").Range(Cells(1, 1), Cells(c.Row, 12)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
End If
End Sub
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett