imprimer un usf au format pdf

klin89

XLDnaute Accro

• 28 Juillet 2011

• #2

Re : imprimer un usf au format pdf

Bonjour BLACKHAYES,

Tu peux utiliser Paint.

Tu fais une copie d'écran de ton formulaire, tu le colles dans Paint, tu l'enregistres au format .bmp (Image bitmap).

Tu l'enregistres au format PDF, voir l'image ci-dessous :


Ce lien n'existe plus

Klin89

 

Dernière édition: 28 Juillet 2011

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 28 Juillet 2011

• #3

Re : imprimer un usf au format pdf

non je veux juste un bouton qui quand clic impression de mon usf en pdf, c'est non

ton idée fait trop de manip

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 28 Juillet 2011

• #4

Re : imprimer un usf au format pdf

re_

j'ai ce code mais il ne fonctionne pas

Private Sub CommandButton24_Click()
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.UserForm6.PrintOut Copies:=1, ActivePrinter:=
"PDFCreator sur Ne00:", Collate:=True
End Sub

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 29 Juillet 2011

• #5

Re : imprimer un usf au format pdf

Bonjour à tous,
Bonjour BLACKHAYES,

L'exemple ci-dessous m'a permis de créer un fichier bitmap d'un userform, ensuite j'ai cliqué droit comme énoncé plus haut pour créer le fichier PDF.
cliché de l'userform - Forum des professionnels en informatique

Visuellement, le résultat n'est pas très convaincant, je te laisse tester.
Les PDF que je crée manuellement à partir de Paint ont plus belle allure.

Vois aussi le fichier du 2ème lien proposé par kiki29 post #4#
[XL-2003] exporter une form en jpg - Forum des professionnels en informatique
Ici, c'est un fichier bitmap d'un graphique qui a été créé. 🙁
Est-ce que l'on peut décliner la méthode de Stephen Bullen pour un Userform, je ne sais pas !

Le jeu en vaut t-il vraiment la chandelle ? 🙄

Klin89

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #6

Re : imprimer un usf au format pdf

Bonjour le forum, Klin89

trop de manip,

il y a bien un code simple pour imprimer un usf en pdf
je remets mon code qui ne fonctionne pas, siquelqu'un peut le modifier pour qu'il fonctionne

Private Sub CommandButton24_Click()
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.UserForm6.PrintOut Copies:=1, ActivePrinter:=
"PDFCreator sur Ne00:", Collate:=True
End Sub


merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #7

Re : imprimer un usf au format pdf

Re,

si ce code est dans le module de l'usf, essaye ainsi, non testé car pas PDF... :

Code:

UserForm6.PrintOut Copies:=1, ActivePrinter:=
"PDFCreator sur Ne00:", Collate:=True

bon après midi
@+

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #8

Re : imprimer un usf au format pdf

Pierrot93 à dit:

Re,

si ce code est dans le module de l'usf, essaye ainsi, non testé car pas PDF... :

Code:

UserForm6.PrintOut Copies:=1, ActivePrinter:=
"PDFCreator sur Ne00:", Collate:=True

bon après midi
@+

Cliquez pour agrandir...

bonjour le forum, Pierrot93

pour ton code il me met :

quand je clic sur le bouton "Erreurde compilation" et "Erreur de Synthaxe"

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #9

Re : imprimer un usf au format pdf

mon est pour un bouton dans mon usf6

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #10

Re : imprimer un usf au format pdf

Re,

attention, ce code est sur 1 seule ligne... mais comme précisé, je ne l'ai pas testé...

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #11

Re : imprimer un usf au format pdf

Private Sub CommandButton24_Click()
UserForm6.PrintOut Copies:=1, ActivePrinter:=
"PDFCreator sur Ne00:", Collate:=True
End Sub

le code complet, mais ca ne fonctionne pas

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #12

Re : imprimer un usf au format pdf

Re,

il faut sans doute également activer l'imprimante :

Code:

Application.ActivePrinter = "PDFCreator sur Ne00:"

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #13

Re : imprimer un usf au format pdf

mon nouveau code:

Private Sub CommandButton24_Click()
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.UserForm6.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne00:", Collate:=True
End Sub

ca marche pas Non plus "Erreur complilation" "Données introuvables"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2011

• #14

Re : imprimer un usf au format pdf

Re,

désolé, ne pouvant tester... pas d'autre idée...

 

Vote positif 0 Vote négatif

BLACKHAYES

XLDnaute Impliqué

• 29 Juillet 2011

• #15

Re : imprimer un usf au format pdf

RE,

c'est pas grave, tu en as déja fait beaucoup pour moi sur ce programme, tu m'as aidé a 85% a réaliser mon projet ainsi que "Laetitia90" et "jean-Marcel"

ainsi que plein d'autre d'ailleurs,

Merci a vous tous,

je continue a chercher

 

Vote positif 0 Vote négatif