"Print this" link in a cell??

[Ltat42a]

Can you put a link in a cell, that when you click on it, it will prin
the current worksheet? How?

Thanx

 

[Nick Hodge]

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
[email protected]

 

[Ltat42a]

You could use the Workbook_SheetSelectionChange event if you want thi
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 an
worksheet)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVa
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
[email protected]


"Ltat42a" <[email protected]> wrot
in
message news:[email protected]...

Thanx....where do I insert this code

 

[Norman Jones]

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

 

[Nick Hodge]

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
[email protected]

 

[Norman Jones]

Hi Nick,

My apologies- I mis-read the macro header.

Thank you for the correction.

 

[Ltat42a]

I'm new to the Visual basic editor. I'm not understanding what all i
involved to get this to work. In cell A1, I typed "Print This" (n
quotes). I right clicked on the worksheet tab, pasted the code yo
provided......and nothing.

Am I missing some steps?


Thanx..