excel-document afdrukken

[ekrems]

Ik wil weten of het mogelijk is om een excel-document met hyperlink af te drukken, maar de hyperlink in dit geval een word-document moet ook afgedrukt worden niet de link maar het document zelf.
Is dit mogelijk ?

Alvast bedankt

 

[HSV]

Is het een hyperlink gemaakt uit een formule ?

 

[ekrems]

geen formule, simpele verwijzing naar het bestand

 

[HSV]

In welke cel staat de hyperlink.

 

[ekrems]

a1

 

[HSV]

Test het eens.

Sub hsv()
Dim h As Hyperlink
  For Each h In Sheets("Blad1").Range("A1").Hyperlinks
    Workbooks.Open h.Address
    ActiveWorkbook.PrintPreview
  Next
End Sub

 

[ekrems]

ik krijg een foutmelding van een fout 28tijdens uitvoering onvoldoende stackruimte

 

[ekrems]

ik weet ook niet precies hoe ik dit moet testen.

 

[HSV]

Ziet de hyperlink er ongeveer zo uit?
D:\01-06-09.xls

 

[ekrems]

D:\voorwaarden.docx

 

[ekrems]

Workbooks.Open h.Address wordt geel gemarkeerd

 

[HSV]

Maak het eens zo.

Sub hsv()
Dim h As Hyperlink
  For Each h In Sheets("Blad1").Hyperlinks
   h.Follow
  Next
End Sub

 

[ekrems]

Ik krijg nu ook outlook geopend is dat normaal ?

 

[HSV]

Het zou gewoon je 'Docx' bestand moeten openen.
Tenminste bij mij gebeurd dit goed.
Of heb je er ook een hyperlink naar een e-mailadres in staan?

 

[ekrems]

ik krijg mijn handtekening open in nieuwe mail

 

[HSV]

Upload eens een nagebootst bestandje zonder gevoelige info.
Kan ik misschien iets aan de code veranderen.

 

[ekrems]

merci het is gelukt

grtj

 

[HSV]

Graag gedaan,
Dan niet vergeten de vraag als opgelost te zetten.
Bvd.