Printing word doc from excel

[Craig1]

Hi Guys,

I have got this code working but I still have one little (hopefully) issue to resolve.
The code is:-

Private Sub CommandButton1_Click()
' Set a reference to Microsoft.Word X.0 Object Library
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim sPath As String
Dim sFile As String
Dim bPrinted As Boolean

sPath = "Z:\Engineering Costs & issue control\Line 2\"
sFile = Workbooks("Issue Control sheet for SMP's.xls").Worksheets(1).Range("B4").Value
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(sPath & sFile)
wdDoc.PrintOut Background:=False
wdDoc.Close False
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub


It works fine when the range is B4, I now need it to be more dynamic so as the worksheet info starts filling up the range will go down to C4, D4 etc.

Again Guys, any help is appreciated.

Craig.
<!-- / message -->

 

[Craig1]

Thanks Peter I will give it a go.

Craig.