fred2355
Messages postés22Date d'inscriptionmardi 6 août 2002StatutMembreDernière intervention23 décembre 2003
-
10 sept. 2002 à 10:10
cs_processus
Messages postés360Date d'inscriptionvendredi 24 août 2001StatutMembreDernière intervention 9 juillet 2008
-
10 sept. 2002 à 14:08
Bonjour,
J'ai du loupé quelque chose quelque part , mais je voudrais mettre une barre d'icone type imprimante, copier, coller et consort sur mon form1.frm mais je ne sais pas comment faire. Qui peut m'aider.?
Merci.
frédéric
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 10 sept. 2002 à 11:01
T'as encore plus simple : utilise l'assistant de création de barre d'outils : Menu Compléments/gestionnaire de compléments
puis charge le complèment Assistant création d'application, puis tu n'a plus qu'à faire : Compléments/assistant barre d'outils, et suivre les instruction. C'est simple, et c'est commentée ;-)
fred2355
Messages postés22Date d'inscriptionmardi 6 août 2002StatutMembreDernière intervention23 décembre 2003 10 sept. 2002 à 12:57
Merci,
Mon Mail est
frederic@merle.ws
de plus si tu pouvais me dire ce que je dois ecrire en plus des instruction ci dessous pour imprimer une image de type BMP, JPG ou GIF.
Private Sub Command1_Click ()
Dim BeginPage, EndPage, NumCopies, Orientation, i
' Affecte la valeur True à la propriété
' CancelError.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Affiche la boîte de dialogue Impression.
CommonDialog1.ShowPrinter
' Récupère les valeurs sélectionnées par
' l'utilisateur dans la boîte de dialogue.
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For i = 1 to NumCopies
' Place ici le code pour envoyer les images à l'imprimante.
Next
Exit Sub
ErrHandler:
' L'utilisateur a choisi le bouton Annuler.
Exit Sub
End Sub