Hei.

Jeg tenkte å lage en Excel fil som gjør det mulig å skrive ut dokumenter.
Så for meg å lage avkrysningsbokser der jeg velger de filene som skal skrives ut. Evt legge til en print knapp..noen forslag på hvordan dette kan løses?

Takk for svar!
Jeg har forsåvidt fått fikset det men er litt treig til å svare. For interesserte så funka denne koden til meg:


Sub printPDFfiles()


Private Sub CommandButton1_Click()
zProg = "C: \Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"

If CheckBox1.Value = True Then
Shell (zProg & " /n /h /t " & "c: \1.pdf")
End If
If CheckBox2.Value = True Then
Shell (zProg & " /n /h /t " & "c: \2.pdf")
End If
If CheckBox3.Value = True Then
Shell (zProg & " /n /h /t " & "c: \3.pdf")
End If

osv osvosv..

Hvis du vil spare deg noen linjer med kode kan du bruke:

Dim x As Integer
For x = 1 To 3
If Me.Controls("CheckBox" & x) = True Then
Shell (zProg & " /n /h /t " & "c: \" & x & ".pdf")
End If
next x

Denne vil være en del kjappere og kan brukes på så mange sjekkbokser du vil, bare forandre x sluttverdi til ønsket verdi.