imprimer un usf au format pdf

[BLACKHAYES]

Re le forum,

Comment faire pour imprimer un usf au format pdf,
quel code utiliser pour cela

Sur mon PC j'ai PDF Creator,

Merci

 

[klin89]

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

 

[BLACKHAYES]

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

 

[BLACKHAYES]

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

 

[klin89]

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

 

[BLACKHAYES]

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

 

[Pierrot93]

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... :

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

bon après midi
@+

 

[BLACKHAYES]

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... :

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

bon après midi
@+

bonjour le forum, Pierrot93

pour ton code il me met :

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

 

[BLACKHAYES]

Re : imprimer un usf au format pdf

mon est pour un bouton dans mon usf6

 

[Pierrot93]

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é...

 

[BLACKHAYES]

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

 

[Pierrot93]

Re : imprimer un usf au format pdf

Re,

il faut sans doute également activer l'imprimante :

Application.ActivePrinter = "PDFCreator sur Ne00:"

 

[BLACKHAYES]

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"

 

[Pierrot93]

Re : imprimer un usf au format pdf

Re,

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

 

[BLACKHAYES]

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