Impression en PDF
Bonjour,
J'ai un UserForm plusieurs des champs et des boutons "Sauvegarde, Impression et Fermer"
Le bouton fonctionne bien mais je voudrai qu'il imprime en pdf et vue avant Impression .
Private Sub btnimprimer_Click()
Dim tnumligne As Long
Dim reponse As Integer
reponse = MsgBox("Vous voulez bien imprimer la fiche de cet Adhérant?", _
vbQuestion + vbYesNo + vbDefaultButton1, "CONFIRMATION MODIFICATION")
If reponse = vbYes Then
ElseIf reponse = vbNo Then
Exit Sub
Unload Me
End If
Me.PrintForm
End Sub
Pouvez-vous m'aider.
Merci de votre réponse.
J'ai mis un fichier en 1-exemple.xlsm, et pour ouvrir le UserForm il faut cliquer 2 fois sur un nom.
Je voudrai imprimer, en pdf et vue avant Impression, le UserForm qui s’appelle frmmodification.
Merci
Bonjour le fil
Juste comme ça au passage, pour ceux qui comme moi sont en Office 64bits
Premières lignes à modifier dans "mGestion"
#If VBA7 Then
Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#Else
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End IfBonjour,
merci fanfan et merci, mais le solution ne fonctionne pas.
Voici le message:
merci
Bonjour COMPAN
Je pense que je suis transparent
Merci de la réponse, mais je n'ai pas compris.
Où mettre ces lignes?
Maintenant j'ai ce message:
Merci
Et bien il faut le dire
Ou est-ce que ça bug au tout début, vous nous l'avez montré !!!
Il suffit de remplacer la ligne en rouge, par les lignes donnés... punaise sérieux
Bonjour
Salut JExcel2fr
Avec la modif de JExcel (mais perso je suis sous excel 2019 64 bits et ça marche très bien dans les 2 cas)
A+ François
Bonjour fanfan38
Je suis très étonné que cela fonctionne, sauf si vous avez "bidouillé" les OCX/DLL pour les valider en 32bits
Au démarrage j'ai la même erreur que sieur COMPAN
Nota : je ne savais pas que sur ce forum, il y avait aussi des enfants que nous devons prendre par la main
Qui est l'enfant ???
depuis que j'ai eu un AVC, j'ai perdu beaucoup....................
Merci
Merci a fanfan ça fonctionne, par contre la boite dialogue:
"MsgBox("Vous voulez bien imprimer la fiche de cet Adhérant?"" qui reste affichée dans aperçu.
et comment changer la:
- Mise en Page orientation Portrait
- Échelle Ajuster
Merci encore de votre patience.
Merci encore de votre aide et votre patience.
Tout fonctionne bien.
Merci bien