View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] davidarmstrong@harronhomes.com is offline
external usenet poster
 
Posts: 1
Default Printing documents via a listbox and hyperlinks

Hello all,
I'm wondering if you could help me, I'm fairly new at VBA scripting
and excel in the whole but I need some help with something I'm trying
to produce.

I have 2 columns within an excel spreadsheet, Column B Contains the
filename and a hyperlink to the file, Column C contains the Pagesize.
What I'm trying to perform is for excel to go down the list and place
them into a listbox, you multi select the items you want then hit a
print button at the bottom, this opens up the hyperlinked document
and prints it off.

My current code is a bit sparse at the moment being:

Sub PrintFileList()
Dim URL As String
Dim hlnk As Hyperlink
Dim RwSrc As String



RwSrc = Sheet1.Name & "!" & Sheet1.Range _
("B2", Sheet1.Range("C65536").End(xlUp)).Address

With UserForm1.ListBoxFiles
..RowSource = vbNullString
..ColumnCount = -1
..MultiSelect = fmMultiSelectExtended
..RowSource = RwSrc

End With

End Sub


This pulls the columns into the form for me need help getting the
hpyerlinks in and working with it. I know there are most likely
easier ways to do this, but this will need to be replicated over a
large number of drawing registers and need something that can be added
into an existing sheet without messing around with the sheet contents
itself. oh and the files are mainly dwg/dwf/pdf's