Discussion :

[bossun]

salut,

comment peut-on faire pour imprimer un graphique croisé dynamique ou un formulaire??? est-ce poissible??? sans avoir recours à des outils extérieurs!!

thank's

[Illith]

Salut, j'ai pas essayé mais peut etre cette methode peut t'aider :

PrintOut Method
Applies To DoCmd object.

Description
The PrintOut method carries out the PrintOut action in Visual Basic. For more information on how the action and its arguments work, see the action topic.

Syntax

DoCmd.PrintOut [printrange][, pagefrom, pageto][, printquality][, copies]
[, collatecopies]

The PrintOut method has the following arguments.

printrange
One of the following intrinsic constants:
acPrintAll (default)
acSelection
acPages

If you leave this argument blank, the default constant (acPrintAll) is assumed.

pagefrom
A numeric expression that's a valid page number in the active form or datasheet. This argument is required if you specify acPages for the printrange argument.

pageto
A numeric expression that's a valid page number in the active form or datasheet. This argument is required if you specify acPages for the printrange argument.

printquality
One of the following intrinsic constants:
acDraft
acHigh (default)
acLow
acMedium

If you leave this argument blank, the default constant (acHigh) is assumed.

copies
A numeric expression. If you leave this argument blank, the default (1) is assumed.

collatecopies
Use True (–1) to collate copies and False (0) to print without collating. If you leave this argument blank, the default (True) is assumed.

Remarks You can leave an optional argument blank in the middle of the syntax, but you must include the argument's comma. If you leave one or more trailing arguments blank, don't use a comma following the last argument you specify.

[bossun]

j'ai bien vu et ça a l'air de fonctionner...

juste un problème... mon grphique se trouve dans un sous-formulaire, comment je peux utiliser cette commande pour l'imprimer... uniquement le sous-formulaire et non le reste...

[Illith]

Je pense que ça devrait aller a peu pres avec ce code. Le seul truc derangeant est de remplacer Screen.ActiveForm par ton sous formulaire!

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
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click
 
    Dim stDocName As String
    Dim MyForm As Form
 
    stDocName = "<Nom du doc>"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False
 
Exit_Commande17_Click:
    Exit Sub
 
Err_Commande17_Click:
    MsgBox Err.Description
    Resume Exit_Commande17_Click
 
End Sub

Désolé, j'ai pas vraiment eu le temps de le tester

[bossun]

Code :

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

1
2
3
stDocName = "<Nom du doc>" 
DoCmd.SelectObject acForm, stDocName, True 
DoCmd.PrintOut

juste ces 3 lignes suffisent...

ça marche tip top :-)

Merci