limiter l'impression à une page

**Davik** · 06/04/2006, 09h48

Bonjour voilà j'ai créer un formulaire assez complexe qui tient exactement sur une page.
avec le rajout du bouton impression (imprimer le formulaire en cours) cela me prend plus d'une page. Je voudrais qu'au clic de ce bouton cela ne m'imprime qu'une seule page et ceci résolura mon problème car ca n'imprimera que ma fiche sans les boutons...

voici le code

P

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
rivate Sub print_Click()
On Error GoTo Err_print_Click
 
 
    DoCmd.PrintOut
 
Exit_print_Click:
    Exit Sub
 
Err_print_Click:
    MsgBox Err.Description
    Resume Exit_print_Click
 
End Sub

Pint out... 1 page ???

jai fait des recherches sur le forum et les cours mais je n'ai pas trouver c'est pourquoi j'ai créé ce sujet merci de vos aides à venir.
Bonne journée

**stéphane_ais2** · 06/04/2006, 09h55

Bonjour,

Access (

) dit :

La méthode PrintOut exécute l'action Imprimer dans Visual Basic. Pour plus d'informations sur le fonctionnement de cette action et de ses arguments, consultez la rubrique correspondante.

Syntaxe

DoCmd.PrintOut [imprimer][, depage, àpage][, qualitéimpression][, copies][, copiestriées]

En espérant que cela t'aide...

SE

**tamerlan** · 06/04/2006, 09h56

dans ton formulaire, quand tu es en mode Affichage, est ce qu'il y a une barre de délilement sur le cote ou en bas?
Si c est le cas, il faut redimenssionner le formulaire de tel facon a ce qu elles n aparaissent plus.

**Davik** · 06/04/2006, 10h04

merci Steph la solution est la, juste a trouver la bonne synthaxe...

**tamerlan** · 06/04/2006, 10h05

ou tu peux aller dans Ficher / Mise en page et régler les marges de ton formulaire (en mode création).
C est amrquer dans l aide d'access.

**Davik** · 06/04/2006, 10h18

merci oui j'ai effectué les marges pour bien mettre en page ma fiche je voulais juste limiter à une page pour supprimer mes boutons que se trouvent tous sur la deuxieme page
Grace à Steph je suis sur la voie juste un petit souci de synthaxe je pense ou un oubli

voici le 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
Private Sub printfiche1_Click()
On Error GoTo Err_printfiche1_Click
 
 
    DoCmd.PrintOut [acSelection], [1], [1], [acHigh], [], []
 
Exit_printfiche1_Click:
    Exit Sub
 
Err_printfiche1_Click:
    MsgBox Err.Description
    Resume Exit_printfiche1_Click
 
End Sub

je l'ai créé grace à l'assistant bouton et j'ai juste rajouté ma sélection [...]

tout se passe bien sur vba et lorsque que je clique sur mon bouton

une message d'erreur apparait:

"impossible de trouver le champ "l" auquel il fait référence dans votre expression ...

quelqu'un aurait une idée