Har med hjälp av Staffan Bergs utmärkta artikel "Kommunicera med officeprogrammen"
gjort ett program som hämtar uppgifter ur en Accessdatabas och ger en utskrift via en Word-mall.
Allt fungerar helt OK.

Skulle önska kunna välja ".PrintPreview" i stället för ".PrintOut" , men lyckas inte få till det.

Nedan ett urval ur Staffan Bergs artikel:

Set docSplintdok = Documents.Add("bilar.dot", 1)

'Hämta informationen från en databas (DAO)
Set db = OpenDatabase("bilar.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Bilar")

'Gå till den första cellen med bokmärket StartCell
Selection.GoTo What:=wdGoToBookmark, Name:="StartCell"

'Lägg in data i Worddokumentet
Do While Not rs.EOF
Selection.TypeText Text:=rs.Fields(1)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rs.Fields(2)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rs.Fields(3)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rs.Fields(4)
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=rs.Fields(5)
Selection.MoveRight Unit:=wdCell
rs.MoveNext
Loop

'Skriv ut dokumentet
With docSplintdok
.PrintOut
End With
DoEvents

Hur får man till PrintPreview ?

mvh/ Harry