Probleme access (impression)
Fermé
bonjour
Comment faire en code pour imprimer en mode paysage.
J'utilise la proprieté docmd.printout mais il imprime en mode portrait.
j'aimerai savoir si on peut en code faire un apercu avant impression pour pouvoir imprimer en mode paysage.
En vous remerciant bonsoir.
Comment faire en code pour imprimer en mode paysage.
J'utilise la proprieté docmd.printout mais il imprime en mode portrait.
j'aimerai savoir si on peut en code faire un apercu avant impression pour pouvoir imprimer en mode paysage.
En vous remerciant bonsoir.
A voir également:
- Probleme access (impression)
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Acer quick access - Forum Logiciels
- Historique impression - Forum Imprimante
- Historique des impressions - Forum Windows
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
