Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Print Area
hey all,
I'm trying to set the print area for a sheet after data is updated. The populating range can vary constantly so I need to determine the last column and the last row. I think I'm missing it on the column part because I need to know the Row Letter instead of the value? Please help! I'm using the following code: Private Sub btnUpdate_Click() Call K1_Review ' updates the current sheet 'set print area Dim LRow As Integer LRow = Range("A65536").End(xlUp).Row Dim LCol As String LCol = Range("CA18").End(xlToLeft).Column 'Range("A4: & LCol & LRow").Select ActiveSheet.PageSetup.printarea = "$A$4:$" & LCol & "$" & LRow End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Print Area
actually this might be better
LRow = cells(rows.count,"a").End(xlUp).Row LCol = cells(18,columns.count).End(xlToLeft).Column range(cells(4,"a"),cells(lrow,lcol)).printout -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... try something like LCol = Range("CA18").End(xlToLeft).Column range(cells(4,"a"),cells(lrow,lcol)).printout or LCol = Range("CA18").End(xlToLeft).Column activesheet.pagesetup.printarea=range(cells(4,"a") ,cells(lrow,lcol)).address -- Don Guillett SalesAid Software "TimT" wrote in message ... hey all, I'm trying to set the print area for a sheet after data is updated. The populating range can vary constantly so I need to determine the last column and the last row. I think I'm missing it on the column part because I need to know the Row Letter instead of the value? Please help! I'm using the following code: Private Sub btnUpdate_Click() Call K1_Review ' updates the current sheet 'set print area Dim LRow As Integer LRow = Range("A65536").End(xlUp).Row Dim LCol As String LCol = Range("CA18").End(xlToLeft).Column 'Range("A4: & LCol & LRow").Select ActiveSheet.PageSetup.printarea = "$A$4:$" & LCol & "$" & LRow End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
set area in excel not giving me option to set print area? | Excel Discussion (Misc queries) | |||
File, print area, clear area, is not working | New Users to Excel | |||
print area across the freeze panes area | Excel Worksheet Functions | |||
Macro - Set Print Area for Changing Data Area | Excel Programming | |||
How do you turn off a print area for a page? (no print area) | Excel Discussion (Misc queries) |