Besoin d'aide pour une imprssion sous word a partir d'access !!!
jcconi
Messages postés72Date d'inscriptionmardi 1 juillet 2003StatutMembreDernière intervention 8 mars 2004
-
17 sept. 2003 à 09:55
jcconi
Messages postés72Date d'inscriptionmardi 1 juillet 2003StatutMembreDernière intervention 8 mars 2004
-
17 sept. 2003 à 14:45
Je vous presente le code suivant !!
Dim Word_Application As Word.Application
On Error Resume Next
Set Word_Application = GetObject(, "Word.application")
If Err = 429 Then
Set Word_Application = New Word.Application
End If
On Error GoTo 0
With Word_Application
.Documents.Add
.Visible = False
End With
'definition de l'orientation
If Me.chkPortrait.Value = True Then
Word_Application.Selection.PageSetup.Orientation = wdOrientPortrait
Else
Word_Application.Selection.PageSetup.Orientation = wdOrientLandscape
End If