vba code for printing hyperlinked documents

[swisstacos]

In Excel 2003 I can get each document to open but I want each document to print. Here is what I've got:

ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.Offset(0, -2).Range("A1").Select

Each hyperlinked document may either be a MSWord or a PDF document.
Any ideas?