Hi GetThatFooty,
Still having troubles?
Why not build your own word table?
Try something like this
CODE
private sub createWordDoc
objWordApp = New Word.Application
objWordApp.Visible = true ' true or false
objDoc = New Word.Document
'Create a new Word document and add some text to it.
objDoc = objWordApp.Documents.Add
dim TableData As ArrayList ' fill arraylist with your data
InsertDataTable(objDoc, TableData )
dim Printername as striing = "your printername"
try
If Printername <> "" Then
objWordApp.WordBasic.FilePrintSetup(Printer:=Printername, DoNotSetAsSysDefault:=1)
objWordApp.PrintOut()
End If
Catch ex As Exception
Finally
objWordApp.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
objWordApp.Quit()
objWordApp = Nothing
End Try
end sub
and to put your data in the doc something like this
CODE
Private Sub InsertDataTable(ByVal doc As Word.Document, ByVal TableData As ArrayList)
With doc
.Range.InsertParagraphAfter()
.Range.Tables.Add(.Paragraphs.Item(.Paragraphs.Count).Range, 2, 5, 1, 1)
For n As Integer = 0 To TableData.Count -1
.Tables.Item(.Tables.Count).Rows.Add()
Dim s As String() = TableData(i).ToString.Split("|")
i += 1
.Tables.Item(.Tables.Count).Cell(n, 1).Range.Text = s(0)
.Tables.Item(.Tables.Count).Cell(n, 2).Range.Text = s(1)
.Tables.Item(.Tables.Count).Cell(n, 3).Range.Text = s(2)
.Tables.Item(.Tables.Count).Cell(n, 4).Range.Text = s(3)
.Tables.Item(.Tables.Count).Cell(n, 5).Range.Text = s(5)
.Tables.Item(.Tables.Count).AllowAutoFit = True
Next
End With
End Sub
hope this helps
24 Feb, 2008 - 11:12 PM
| 