Home |
Search |
Today's Posts |
#1
|
|||
|
|||
"Print this" link in a cell??
Can you put a link in a cell, that when you click on it, it will print the current worksheet? How? Thanx. -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
#2
|
|||
|
|||
"Print this" link in a cell??
You could use the Workbook_SheetSelectionChange event if you want this to
happen on all worksheets. If it is a specific sheet then use the worksheet_SelectionChange event behind the sheet concerned... Code like that below will work (Using selection on A1 on any worksheet) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sh.PrintOut End If End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Ltat42a" wrote in message ... Can you put a link in a cell, that when you click on it, it will print the current worksheet? How? Thanx. -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
#3
|
|||
|
|||
"Print this" link in a cell??
Nick Hodge Wrote: You could use the Workbook_SheetSelectionChange event if you want this to happen on all worksheets. If it is a specific sheet then use the worksheet_SelectionChange event behind the sheet concerned... Code like that below will work (Using selection on A1 on any worksheet) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sh.PrintOut End If End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Ltat42a" wrote in message ... Can you put a link in a cell, that when you click on it, it will the current worksheet? How? Thanx. -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 Thanx....where do I insert this code? -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
#4
|
|||
|
|||
"Print this" link in a cell??
Hi Ltat42a,
Nick's code represents a worksheet event procedure and should be pasted into the worksheets's code module (not a standard module and not the workbook's ThisWorkbook module): ******************************************* Right-click the worksheet's tab Select 'View Code' from the menu and paste the code. Alt-F11 to return to Excel. ******************************************* For information on Event procedures, see Chip Pearson at: http://www.cpearson.com/excel/events.htm For introductory information on macros see David McRitchie's 'Getting Started With Macros And User Defined Functions' at: http://www.mvps.org/dmcritchie/excel/getstarted.htm --- Regards, Norman "Ltat42a" wrote in message ... Nick Hodge Wrote: You could use the Workbook_SheetSelectionChange event if you want this to happen on all worksheets. If it is a specific sheet then use the worksheet_SelectionChange event behind the sheet concerned... Code like that below will work (Using selection on A1 on any worksheet) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sh.PrintOut End If End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Ltat42a" wrote in message ... Can you put a link in a cell, that when you click on it, it will the current worksheet? How? Thanx. -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 Thanx....where do I insert this code? -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
#6
|
|||
|
|||
"Print this" link in a cell??
Hi Nick,
My apologies- I mis-read the macro header. Thank you for the correction. --- Regards, Norman "Nick Hodge" wrote in message ... Norman Thanks for jumping in...on the contrary however. I have used, in the example, the 'workbook' version of the SheetSelectionChange event to fire on every sheet in the workbook. Therefore the actual example *should* be placed in the ThisWorkbook code module, unless, as I pointed out, the code was just required on one sheet. If this is the case, then follow Norman's advice and use the Worksheet Selection_Change event behind the required worksheet -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Norman Jones" wrote in message ... Hi Ltat42a, Nick's code represents a worksheet event procedure and should be pasted into the worksheets's code module (not a standard module and not the workbook's ThisWorkbook module): ******************************************* Right-click the worksheet's tab Select 'View Code' from the menu and paste the code. Alt-F11 to return to Excel. ******************************************* For information on Event procedures, see Chip Pearson at: http://www.cpearson.com/excel/events.htm For introductory information on macros see David McRitchie's 'Getting Started With Macros And User Defined Functions' at: http://www.mvps.org/dmcritchie/excel/getstarted.htm --- Regards, Norman "Ltat42a" wrote in message ... Nick Hodge Wrote: You could use the Workbook_SheetSelectionChange event if you want this to happen on all worksheets. If it is a specific sheet then use the worksheet_SelectionChange event behind the sheet concerned... Code like that below will work (Using selection on A1 on any worksheet) Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sh.PrintOut End If End Sub -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Ltat42a" wrote in message ... Can you put a link in a cell, that when you click on it, it will the current worksheet? How? Thanx. -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 Thanx....where do I insert this code? -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
#7
|
|||
|
|||
"Print this" link in a cell??
I'm new to the Visual basic editor. I'm not understanding what all is involved to get this to work. In cell A1, I typed "Print This" (no quotes). I right clicked on the worksheet tab, pasted the code you provided......and nothing. Am I missing some steps? Thanx... -- Ltat42a ------------------------------------------------------------------------ Ltat42a's Profile: http://www.excelforum.com/member.php...o&userid=24735 View this thread: http://www.excelforum.com/showthread...hreadid=478471 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Link page header with cell contents | Excel Worksheet Functions | |||
hyperlink - link one cell to another in a worksheet. how? | Excel Worksheet Functions | |||
Replace part of link address in a cell with a value(date) from ano | Excel Discussion (Misc queries) | |||
How do I use a cell value as the filename in an external link? | Excel Worksheet Functions | |||
I am trying to link based on a text value instead of cell position | Links and Linking in Excel |