Impression d'un formulaire

Bonjour,

Je suis un débutant+++++, je viens de créer un formulaire. Lorsque que j'ai rentré les informations dans celui-ci, je voudrai qu'elles soient envoyées sur une page déjà préparée à cet effet, pouvoir avoir un aperçu avant impression et pouvoir l'imprimer.

Est-ce possible et si oui pourriez vous m'aider?

Cordialement,

Jean-Marie

Bonjour Djodjo,

Un fichier exemple serait plus explicite

néanmoins, voici un code à placer dans un module

Sub Print_UserForm()

UserForm1.Show
With Selection
.PrintPreview
End With
End Sub

Amicalement

Pierrot

Bonjour Pierrot

Voila mon fichier, par contre je pense que cela ne va pas fonctionner car je n'arrive pas à joindre mon fichier "Image" avec.

Cordialement,

Jean-Marie

Salut, Jean-Marie,

Avec le bouton "Recettes",le bouton imprimer donne un aperçu avant impression des la feuille "Recettes"

cette première impression prend plusieurs pages !!!!!

Que veux-tu imprimer d'autres ?

Ci-joint, ton fichier modifié.

Amicalement

Pierrot

Salut Pierro,

Je te remercie pour tes informations, mais dans l'état je ne peux toujours pas imprimer mes recettes. Le but recherché ressemblerai plus ou moins au fichier joint.(peut-être, surement à améliorer).

COrdialement,

Jean-Marie

Salut, Jean-Marie,

Une version modifiée de ta feuille "Impression"

Les modifications sont sur la feuille Impression.

A tester et me tenir au courant pour d'éventuelles modifications.

Amicalement

Pierrot

Salut Pierrot,

A première vu c'est ce que je recherche. Je vais maintenant essayé de rentrer les information concernant la recette pour voir ce que donne l'impression.

Encore un dur travail en perspective.

Je te tiens rapidement au courant

Merci encore

Cordialement,

Jean-Marie

Bonsoir Djodjo, bonsoir Pierrot

@ Djodjo

Merci d'avoir consulter mon blog, je vois que tu es gourmand comme moi... voici le code que j'excécute pour imprimer un formulaire (mentionner sur question poser sur le même blog "Créer son formulaire"

http://cellulexcel.blogspot.fr/p/qui-na-pas-un-jour-utilise-loption.html

Le codage n'est pas fini... j'ai d'ailleurs modifié quelques paramètres ce jour

http://cellulexcel.blogspot.fr/p/blog-page_22.html

On peut imprimer directement un formulaire "rempli" sur une feuille.

Voici la méthode (Le code n'est pas de moi.... l'auteur se reconnaitra peut-être)

Insérer dans un module le code suivant :

Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1

Puis créer un bouton sur votre formulaire et intégrer le code à l'événement click (exemple pour le bouton de commande ComandButton1)

Private Sub CommandButton1_Click()
'BOITE DE DIALOGUE POUR LA DEMANDE D'IMPRESSION
Dim IPVM
IPVM = MsgBox("AVEZ-VOUS UNE IMPRIMANTE DE CONNECTEE ?", vbYesNo + vbDefaultButton2 + vbQuestion, " DEMANDE D'IMPPRESSION")
If IPVM = vbNo Then Exit Sub

If IPVM = vbYes Then
Application.ScreenUpdating = False
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
With ActiveSheet
.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
.Range("A1").Activate
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftMargin = Application.InchesToPoints(0)
.PageSetup.RightMargin = Application.InchesToPoints(0)
.PageSetup.TopMargin = Application.InchesToPoints(0.3)
.PageSetup.BottomMargin = Application.InchesToPoints(0)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0)
.PageSetup.PrintHeadings = False
.PageSetup.PrintGridlines = False
.PageSetup.PrintComments = xlPrintNoComments
.PageSetup.CenterHorizontally = False
.PageSetup.CenterVertically = False
.PageSetup.Draft = False
.PageSetup.PaperSize = xlPaperA4
.PageSetup.Order = xlDownThenOver
.PageSetup.BlackAndWhite = False
.PageSetup.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
UserForm1.CommandButton1.SetFocus
Application.ScreenUpdating = True
End If
End Sub

Donc dès lors que vous cliquez sur le bouton, le formulaire sera imprimé sur l'imprimante connecté par défaut.