Discussion :

[picatchou]

Bonjour, j'aimerais imprimer recto verso un de mes états. Comment puis-je faire? Je dois paramétrer l'imprimante dans l'état en mode création ou y a t'il une ligne de code a ajouté quelque part?
Merci d'avance.

[catoucat]

Sur le code lie au bouton imprimer ou bien sur le Form_Load tu ajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Printer.Duplex = acPRDPVertical

Sinon tu peux essayer sur le bouton imprimer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Reports("R_ManufactureOrder_Molding").Printer.Duplex = acPRDPVertical

Par contre il faut une version recente d'Access (je ne sais plus si 2000 suffit ou pas) car l'objet Printer n'est pas gere sur les anciennes version!

[Domi2]

Bonjour,

Pour Access 2002 et 2003, tu peux faire une recherche dans l'aide.

Propriété Duplex de la collection Printer.

Pour des versions antérieures, je ne sais pas.

Bonne journée.

Domi2

[picatchou]

Hello! J'ai le code suivant en essyant les 2 choses mais ça ne marche pas:
pour la version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Printer.Duplex = acPRDPVertical

ça imprime mais sans faire recto vers0 et pour l'autre version il me dit qu'il ne reconnaît pas l'état!!
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ImprimerFiche_Click()
On Error GoTo Err_ImprimerFiche_Click
 
    Dim stDocName As String
 
    stDocName = "E_FicheEnregistrement"
    'Printer.Duplex = acPRDPVertical
    Reports(stDocName).Printer.Duplex = acPRDPVertical
    DoCmd.OpenReport stDocName, acViewNormal, , "[NumeroDossier]=" & Me.NumeroDossier
 
Exit_ImprimerFiche_Click:
    Exit Sub
 
Err_ImprimerFiche_Click:
    MsgBox Err.Description
    Resume Exit_ImprimerFiche_Click
 
End Sub