Print dokumenter via hyberlinks i excel

hyberlink=hyperlink :))

Jeg kender ikke til en metode, der kan fange den funktion, der åbner filen i hyperlinket, og derfor tror jeg ikke umiddelbart at det kan lade sig gøre (men jeg har dog før taget fejl!).

Kunne du ikke bruge en kommandoknap i stedet?

Ja, det er ligemeget. Et knap er helt fint :)

Først indsætter du følgende kode i et modul (tryk Alt-F11, vælg menuen Indsæt/Modul og kopier nedenstående hertil)

Function PrintWordDocs(hlinkCelle As String)
Dim WordApp As Object
Dim WordDoc As Object
Dim DocName As String

Set WordApp = CreateObject("Word.Application")
DocName = Range(hlinkCelle)
Set WordDoc = WordApp.Documents.Open(DocName)
WordDoc.PrintOut

VentTid 5          'Hvis Word lukkes for hurtigt, afbrydes udskrivningen

WordDoc.Close False 'False = no saving
WordApp.Quit False  'False = no saving
Set WordApp = Nothing
Set WordDoc = Nothing
End Function

Function VentTid(PauseTime As Integer)
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
Loop
End Function


For at lave en kommandoknap for HVERT(!) hyperlink skal du

- Højreklikke på menuen og vælge værktøjsmenuen "Kontrolelementer"
- I værktøjslinien "Kontrolelementer" trykker du på "Kommandoknap" og indsætter den i regnearket ved hyperlinket
- Højreklik på kommandoknappen og vælg "Vis programkode"
- Indsæt følgende linier i programkoden

    PrintWordDocs("F3")

Husk at ændre F3 til navnet på den celle, der inderholder hyperlinket til den fil du vil udskrive.

Du kan iøvrigt godt lave (og tilpasse) kommandoknappen ved én celle og så efterfølgende kopiere den til alle de andre celler (det er trods alt noget hurtigere end det som jeg beskrev ovenfor - MEN du skal stadig ind og ændre i koden i hver enkelt knap!

ok tak, jeg tester i morgen :)

Så hører du fra mig

OK. God fornøjelse :0)

Hej Sjap,

Det med at der bliver udskrevet et doc. virker godt nok, men den kommer med en fejlmeddelse i VBA....  Compile error: variable not defined. og så viser den gul tekst her:  Function VentTid(PauseTime As Integer)

Kan jeg ikke lige forstå. Det fungerer fint her, men prøv at tilføje

Dim Start As Single

til VentTid-funktionen, så den kommer til at se således ud:


Function VentTid(PauseTime As Integer)
Dim Start As Single
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
Loop
End Function

Det virker som det skal, med den lille rettelse :)

Tak for hjælpen

/sonos

Det var så lidt :0)

Sonos > Hvis du fik løst problemet, må du gerne acceptere svaret :0)

Ja, der var vist lige sket en fejl der :)

Men så skulle den være fixet, sorry

mvh

Sonos

;0)