Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print macro help
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print macro help
On Jul 3, 8:49 am, "ADK" wrote:
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 A good way to find out what the macro needs to do is to go through the steps manually while recording a macro. In this case, you'll be able to see what the command for sending the range to the printer will be. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print macro help
thanks
"jayray" wrote in message ups.com... On Jul 3, 8:49 am, "ADK" wrote: 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 A good way to find out what the macro needs to do is to go through the steps manually while recording a macro. In this case, you'll be able to see what the command for sending the range to the printer will be. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to hide rows with a certain cell empty then set print area and print | Excel Programming | |||
Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
Macro to open print window and set to print entire workbook | Excel Discussion (Misc queries) | |||
Create a print macro that would automatically select print area? | Excel Worksheet Functions | |||
Need Help w/ Print Macro to Print All Visible Sheets (including Charts) in a Workbook | Excel Programming |