Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour,
Tu peux essayer ceci (jamais testé) :
Public Sub SetOrientation(NomEtat As String, Orientation As Long) Dim ChaînePer As ch_DEVMODE Dim DM As type_DEVMODE Dim chExtraModPer As String Dim rpt As Report DoCmd.OpenReport NomEtat, acDesign Set rpt = Reports(NomEtat) If Not IsNull(rpt.PrtDevMode) Then chExtraModPer = rpt.PrtDevMode ChaînePer.RGB = chExtraModPer LSet DM = ChaînePer DM.entOrientation = Orientation LSet ChaînePer = DM Mid(chExtraModPer, 1, 94) = ChaînePer.RGB rpt.PrtDevMode = chExtraModPer DoCmd.Close acReport, NomEtat, acSaveYes End If End Sub
ça marche ?
A+ Arnaud
"Joël" a écrit dans le message de news: 427cdb9d$0$25020$
Bonjour,
est-il possible (et comment ?) de modifier l'orientation de l'impression d'un état en VBA ?
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr
Bonjour,
Tu peux essayer ceci (jamais testé) :
Public Sub SetOrientation(NomEtat As String, Orientation As Long)
Dim ChaînePer As ch_DEVMODE
Dim DM As type_DEVMODE
Dim chExtraModPer As String
Dim rpt As Report
DoCmd.OpenReport NomEtat, acDesign
Set rpt = Reports(NomEtat)
If Not IsNull(rpt.PrtDevMode) Then
chExtraModPer = rpt.PrtDevMode
ChaînePer.RGB = chExtraModPer
LSet DM = ChaînePer
DM.entOrientation = Orientation
LSet ChaînePer = DM
Mid(chExtraModPer, 1, 94) = ChaînePer.RGB
rpt.PrtDevMode = chExtraModPer
DoCmd.Close acReport, NomEtat, acSaveYes
End If
End Sub
ça marche ?
A+
Arnaud
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
427cdb9d$0$25020$8fcfb975@news.wanadoo.fr...
Bonjour,
est-il possible (et comment ?) de modifier l'orientation de l'impression
d'un état en VBA ?
Public Sub SetOrientation(NomEtat As String, Orientation As Long) Dim ChaînePer As ch_DEVMODE Dim DM As type_DEVMODE Dim chExtraModPer As String Dim rpt As Report DoCmd.OpenReport NomEtat, acDesign Set rpt = Reports(NomEtat) If Not IsNull(rpt.PrtDevMode) Then chExtraModPer = rpt.PrtDevMode ChaînePer.RGB = chExtraModPer LSet DM = ChaînePer DM.entOrientation = Orientation LSet ChaînePer = DM Mid(chExtraModPer, 1, 94) = ChaînePer.RGB rpt.PrtDevMode = chExtraModPer DoCmd.Close acReport, NomEtat, acSaveYes End If End Sub
ça marche ?
A+ Arnaud
"Joël" a écrit dans le message de news: 427cdb9d$0$25020$
Bonjour,
est-il possible (et comment ?) de modifier l'orientation de l'impression d'un état en VBA ?
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr
3stone
Salut,
"Anor" | | Tu peux essayer ceci (jamais testé) : | | Public Sub SetOrientation(NomEtat As String, Orientation As Long) [...] | End Sub | | ça marche ?
Il manque une brouette de déclarations, non ?
Sinon, avec l'objet "Printer"...
Dim sRep as String sRep = "MonEtat"
'Ouvrir en mode design DoCmd.OpenReport sRep, acViewDesign