A voir également:
- Probleme access (impression)
- Spouleur d'impression - Guide
- Impression ecran windows - Guide
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
- Impression livret word - Guide
- Impression recto verso à l'envers ✓ - Forum Logiciels
1 réponse
Bonjour,
Voilà la solution que j'utilise afin de passer un état d'un mode paysage à un mode portrait ou de le forcer dans un des deux modes.
rptNom est le nom de l'état
rptOrient est l'orientation : 1 (portrait), 2 (paysage)
Sub VérifierPageOrient(rptNom As String, rptOrient As Integer)
Dim ChaînePér As ch_DEVMODE
Dim DM As type_DEVMODE
Dim chExtraModPér As String
Dim rpt As Report
DoCmd.OpenReport rptNom, acDesign ' Ouvre l'état en mode Création.
Set rpt = Reports(rptNom)
If Not IsNull(rpt.PrtDevMode) Then
chExtraModPér = rpt.PrtDevMode
ChaînePér.RGB = chExtraModPér
LSet DM = ChaînePér
DM.lngChamps = DM.lngChamps Or DM.entOrientation ' Initialise les champs.
DM.entOrientation = rptOrient
LSet ChaînePér = DM ' Met à jour la propriété.
Mid(chExtraModPér, 1, 94) = ChaînePér.RGB
rpt.PrtDevMode = chExtraModPér
End If
DoCmd.Close acReport, rptNom, acSaveYes
End Sub
J'espère que cela ira.
Cordlmnt
Voilà la solution que j'utilise afin de passer un état d'un mode paysage à un mode portrait ou de le forcer dans un des deux modes.
rptNom est le nom de l'état
rptOrient est l'orientation : 1 (portrait), 2 (paysage)
Sub VérifierPageOrient(rptNom As String, rptOrient As Integer)
Dim ChaînePér As ch_DEVMODE
Dim DM As type_DEVMODE
Dim chExtraModPér As String
Dim rpt As Report
DoCmd.OpenReport rptNom, acDesign ' Ouvre l'état en mode Création.
Set rpt = Reports(rptNom)
If Not IsNull(rpt.PrtDevMode) Then
chExtraModPér = rpt.PrtDevMode
ChaînePér.RGB = chExtraModPér
LSet DM = ChaînePér
DM.lngChamps = DM.lngChamps Or DM.entOrientation ' Initialise les champs.
DM.entOrientation = rptOrient
LSet ChaînePér = DM ' Met à jour la propriété.
Mid(chExtraModPér, 1, 94) = ChaînePér.RGB
rpt.PrtDevMode = chExtraModPér
End If
DoCmd.Close acReport, rptNom, acSaveYes
End Sub
J'espère que cela ira.
Cordlmnt
