Bonjour a vous,
Voila le pb : Je suis en train d'essayé d'imprimer un état recto/verso. Hors je n'y arrive pas. J'ai regarder dans l'aide access ou je trouve une rroutine que je n'arrive pas a adapter a mon programme...
Quelqu'un peux m' aider ??
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
19
20
21 Sub SetPrinter(strFormname As String) DoCmd.OpenForm FormName:=strFormname, view:=acDesign, _ datamode:=acFormEdit, windowmode:=acHidden With Forms(form1).Printer .Copies = 1 .Orientation = acPRORLandscape .Duplex = acPRDPVertical .PaperBin = acPRBNAuto .PaperSize = acPRPSLetter .PrintQuality = acPRPQMedium End With DoCmd.Close objecttype:=acForm, objectname:=strFormname, _ Save:=acSaveYes End Sub
Partager