Impression d'un formulaire

[Toubabou]

Bonjour,

Je suis nouveau sur ce forum et j'espère respecter les règles de celui-ci.
Sinon je vous prie de bien vouloir m'excuser.
Mon soucis est le suivant:
je viens de créer un fichier contenant un formulaire et je voudrais imprimer les informations contenu dans celui-ci
Pourriez vous m'indiquer comment faire?
Je vous joint un modèle de mon fichier

Cordialement,

Jean-Marie

 

[MichD]

Re : Impression d'un formulaire

Bonjour,

Une procédure de Michel Perron :

Dans le haut du module de ton formulaire, déclaration des API

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
     , ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


'La macro est liée à un bouton de commande dans ton formulaire

Private Sub CommandButton1_Click()
Dim NewBook As String
Me.Repaint
OpenClipboard 0&
EmptyClipboard
keybd_event vbKeySnapshot, 0, 0&, 0&
CloseClipboard
DoEvents
Application.ScreenUpdating = False

Workbooks.Add: ActiveSheet.Paste
NewBook = ActiveWorkbook.Name

With ActiveSheet.PageSetup
     .RightFooter = Me.Caption & " Le &D Page &P/&N"
     .PrintGridlines = False
     .Orientation = xlLandscape
      .PaperSize = xlPaperA4
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = False
End With

ActiveWindow.Visible = False
Application.ScreenUpdating = True
Windows(NewBook).SelectedSheets.PrintOut Copies:=1
Workbooks(NewBook).Close False
End Sub

 

[Toubabou]

Re : Impression d'un formulaire

Merci, mais là c'est tout le formulaire qui est imprimé. Ce n'est pas ce que je recherche en réalité. Je voudrais que les informations soient copiées sur une page et imprimés sans que l'on voit les barre de défilement où autre du formulaire.

Jean-Marie

 

[Toubabou]

Re : Impression d'un formulaire

Et je reçois le message d'erreur suivant:
Erreur de compilation:
Sub ou Function non définie

"OpenClipboard 0& est en surbrillance

Jean-Marie

 

[camarchepas]

Re : Impression d'un formulaire

Bonjour Toubabou,

Avec un petit modèle de ce que tu veux obtenir , ce serait plus clair,

Le Ptit Prince là bien compris et Dessine moi un mouton .....

 

[Toubabou]

Re : Impression d'un formulaire

Bonjour Toubabou,

Avec un petit modèle de ce que tu veux obtenir , ce serait plus clair,

Le Ptit Prince là bien compris et Dessine moi un mouton .....

Pourriez vous me dire comment insérer un fichier?

 

[Toubabou]

Re : Impression d'un formulaire

Ah je viens de trouver....

Ce lien n'existe plus

Ce que recherche se trouve sur le fichier "Ce que je recherche" à partir donc du fichier "Recettes"