Print button voor hyperlink

[Nickdude]

Ik zit met een probleem waar ik niet uitkom:
Ik heb via de HYPERLINK "formule" een hyperlink gemaakt naar een ander excel bestand. Nu wil ik in de kolom naar deze hyperlink een button/link hebben om dit bestand direct te printen.
Weet iemand of dit mogelijk is en zo ja... hoe??

gegroet Nick

 

[snabbi]

als macro code:

sub button_lala()
Workbooks.Open Filename:="c:\test.xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Workbooks("test.xls").Close
end sub

 

[Nickdude]

BEdankt,
maar het werkt nog niet. Ik heb een hyperlinklaten genereren met behulp van een excel formule. Nu wil ik dus in een andere cel een soort link of button hebben waarmee ik het bestand waarnaar de hyperlink verwijst te printen.

Iig toch al bedankt!

 

[jheesterbeek]

Probeer dit eens:
Sub button_lala()
Dim FilePath, FileName
FileName = Range("A2").Hyperlinks(1).Address
Workbooks.Open FileName:=FileName
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End Sub

In cel A2 van het tabbada waar de butoon staat bevat de hyperlink

Succes

John

 

[Nickdude]

hmmmz het werkt niet, de error zit in:

FileName = Range("D3").Hyperlinks(1).Address



Iig toch bedacht!

 

[jheesterbeek]

kun je de file (gezipped) op het forum plaatsen?
Dan kna ik zien hoe je hyperlink gemaakt wordt en wat de eigenschappen zijn.

 

[Nickdude]

Ik heb de VB code al goed gekregen nu:

Private Sub CommandButton1_Click()
Workbooks.Open FileName:=Range("D3")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End Sub

Echter is dit dus voor een button, en heb eigenlijk liever een getypte link staan die deze opdracht uitvoert? weet iemand hier eeen oplossing voor?

Nick

 

[jheesterbeek]

Zet je macro in een chage-event:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$3" Then
Workbooks.Open FileName:=Range("D3")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End If
End Sub

Je macro gaat er wel vanuit dat de weergegeven naam in de cel gelijk is aan het adres waar de link naar verwijst. Dit is niet altijd zo, maar wellicht bij jou wel.

Succes

John

 

[Nickdude]

Dit script werkt niet
Het is de bedoeling dat automatisch in bijvoorbeeld cel C5 een hyperlink komt te staan. die dus niet alleen het bestand opent. maar ook uitprint en weer afsluit.
de print-link in cel C5 moet dus verwijzen naar de hyperlink in cel B5.

Nick

 

[jheesterbeek]

Hoi nick,
Bij mij werkt het prima.
Als je klikt in cel E3, wordt de file die in D3 staat geopend en geprint. In cel E3 kun je iedere gewenste tekst (met bijpassende opmaak) plaatsen.
In de bijlage een voorbeeldje. (Verwijder eerst even de hyperlink en plaats een hyperlink naar een bestaand bestand op jou pc.)

Succes

John

 

[Nickdude]

OK dan het werkt.....Dank je!!!
Nu zit ik alleen met het fiet dat ik vanaf rij 3 t /m rij 1000 dit moet hebben en om dit 1000 keer aan te passen heb ik niet zon zin in. Kan iemand mij helpen met het aanpassen van dit script om dit werkend te maken!

Nick

 

[jheesterbeek]

Vervang de macro door onderstaande macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'On Error GoTo Foutafhandeling
If Not Intersect(Target, Range("E3:E1000")) Is Nothing Then
' in bovenstaande wordt de selectie gechecked, valt de
' verandering niet in de selectie, dan gebeurt er niets
Workbooks.Open Filename:=Cells(Target.Row, Target.Column - 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End If
Exit Sub
Foutafhandeling:
End Sub

 

[Nickdude]

Werkt als een trein.... alleen nog 1 probleem
In bijvoorbeeld C4 staat blabla.xls, maar de link gaat naar: Tekeningen/blabla.xls

Nu als ik deze macro toepas, link hij dus door naar blabla.xls en niet Tekeningen/blabla.xls

Nick

 

[jheesterbeek]

Inderdaad:

Geplaatst door jheesterbeek
Je macro gaat er wel vanuit dat de weergegeven naam in de cel gelijk is aan het adres waar de link naar verwijst. Dit is niet altijd zo, maar wellicht bij jou wel.

Maar ook dat is op te lossen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'On Error GoTo Foutafhandeling
If Not Intersect(Target, Range("E3:E1000")) Is Nothing Then
' in bovenstaande wordt de selectie gechecked, valt de
' verandering niet in de selectie, dan gebeurt er niets
Cells(Target.Row, Target.Column - 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End If
Exit Sub
Foutafhandeling:
End Sub

 

[Nickdude]

hmmmz.....
Ik krijg een error in:
Cells(Target.Row, Target.Column - 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
lijkt mij goed maar toch doet hij het niet. Ik krijg een error:

Runtime error 9: subscript out of range

Nick

 

[jheesterbeek]

kwootje vergeten weg te halen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Foutafhandeling
If Not Intersect(Target, Range("E3:E1000")) Is Nothing Then
' in bovenstaande wordt de selectie gechecked, valt de
' verandering niet in de selectie, dan gebeurt er niets
Cells(Target.Row, Target.Column - 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End If
Exit Sub
Foutafhandeling:
End Sub

 

[Nickdude]

Nog altijd de fout in die aangegeven regel. Bij het nieuwe script zie je de eroor niet meer, maar hij is er nog altijd.....

Nick

 

[jheesterbeek]

De fout ontstaat niet door het ontbreken van een hyperlink?
Krijg je altijd deze fout, of maar zo nu en dan?

 

[snabbi]

Ik vermoed zelf dat je link niet helemaal klopt (mssn geen bestaand bestand?). Als je de code even verandert naar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Foutafhandeling
If Not Intersect(Target, Range("E3:E1000")) Is Nothing Then
' in bovenstaande wordt de selectie gechecked, valt de
' verandering niet in de selectie, dan gebeurt er niets
Range("A1").Value = Cells(Target.Row, Target.Column - 1).Hyperlinks(1).Address


Cells(Target.Row, Target.Column - 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close False
End If
Exit Sub
Foutafhandeling:
End Sub


Zo print hij hem niet maar zegt hij in cel A1 welk bestand hij wil openen. Nu kan je kijken of dat bestand ook werkelijk bestaat.

 

[Nickdude]

Ook dit wekr niet.
Ik weet dat de hyperlinks kloppen, want in bijvoorbeeld Cel D4 kan ik er gewoon op drukken. Ik heb deze hyperlink gemaakt m.b.v. een excel formule. De hyperlink verwijst naar Tekeningen/.......xls. Echter staat in de cel alleen ......xls.
Als ik de code als hierboven toepas, zie ik in cel A1 geen enkele hyperlink verschijnen.

Nick