Code du bouton Imprimer

Fermé
gomour - 20 sept. 2007 à 22:33
 Utilisateur anonyme - 21 nov. 2015 à 19:09
je veux programmer un bouton "Imprimer" sur VB qui peux m'aider ?
A voir également:

9 réponses

code de bouton imprimer par visual basic 2005
16
je voudrais avoir le CODE de programmation sur VB du bouton imprimer
10
svp quelqu'un a le bouton imprimer en code ???
2
Salut

Comment envoyer la touche "Imp écr/Syst" en VisualBasic6 ; VB6 ; VB ; Programmation Microsoft :

Sub test_Imp_ecran_a1()
Application.SendKeys "{PRTSC}"
End Sub

merci .

http://users.skynet.be/micdub/vba6.htm <<== SOURCE !!

https://codes-sources.commentcamarche.net/

https://forums.commentcamarche.net/forum/affich-949969-vba-et-le-sendkeys-au-dos

http://www.javascriptfr.com

"[VB6] Touche impr écran" ; empêcher une impression écran :
https://www.developpez.net/forums/d517/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vb6-touche-impr-cran/

"SendKeys.Send("^(P)") not working" :
https://bytes.com/topic/visual-basic-net/answers/348193-sendkeys-send-p-not-working

http://www.codyx.org/snippet_capture-image-form-tous-controles_147.aspx#668

https://codes-sources.commentcamarche.net/

**** :
http://www.excelabo.net/moteurs/motsclefs.php?mot=clavier

Les codes générés par un appui clavier ; N° 407 : de Hervé, : h-keycode :
http://www.excelabo.net/moteurs/compteclic.php?nom=h-keycode
**** .

https://codes-sources.commentcamarche.net/

à+
2

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Salut

Comment envoyer la touche "Imp écr/Syst" en VisualBasic6 ; VB6 ; VB ; Programmation Microsoft :

QUAND SENDKEYS NE MARCHE PAS (SIMULATION D'APPUI DE TOUCHES) ; VISUAL BASIC :

Sendkeys permet de simuler l'appuie de touches du clavier, cela peut être très utile si on fait intervenir des applications extérieures. C'est très simple il suffit d'envoyer la séquence des touches dont on a besoin pour la manipulation.
Mes desfois ça bug, les touches n'arrive pas dans le programme, surtout ceux du genre fortran d'avant guerre. Alors voilà l'astuce.
On met l'instruction désirée dans le presse papier, ensuite on se sert de Sendkeys pour envoyer l'instruction pour coller le contenu du presse papier, généralement Alt+Espace+E+O ce qui ce traduit par "% eo".
Etrangement certains programmes se comporte bizarrement avec sendkeys, seul des ordres simples passe, comme notre séquence qui nous servira pour toutes les touches.

Source =>
https://codes-sources.commentcamarche.net/


*********************** :

Public Declare Sub Sleep Lib "kernel32" (ByVal dwTime As Long)
' Sleep sert pour la synchronisation de la macro et du programme
--------------------------------------------------------------------------------------------
Sub ExeTS()

Dim MyAppID
MyAppID = Shell("C:\monprogramme.exe", vbNormalFocus)

Set MyDataObject = New DataObject 'création d'un DataObject

MyDataObject.SetText Chr(13) 'insertion de la touche "Entrée" dans le DataObject
MyDataObject.PutInClipboard 'transvasement du DataObject au Presse Papier
SendKeys "% eo", True 'collage du contenue du presse papier
Sleep 1000 'attente d'execution du programme

MyDataObject.SetText ("aaaaa") 'saisie du mot de passe
MyDataObject.PutInClipboard
SendKeys Chr(8), True 'effacement des caractères présents
SendKeys "% eo", True
Sleep 1000

End Sub

*********************** .


Sujet "[VB/VBA] commande sendkey", sur le forum ccm, commentcamarche.net :
https://forums.commentcamarche.net/forum/affich-2041348-vb-vba-commande-sendkey


merci .

à+
2
SVP je voudrais avoir le code du bouton imprimer en php
1
<A href="javascript:window.print()">Imprime...
1
ctrl p
0
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
20 sept. 2007 à 22:50
+1
0
SVP je voudrais avoir le code du bouton imprimer en visual studio C# dans un form
0
Utilisateur anonyme
21 nov. 2015 à 19:09
Bonjour,
Tu peux faire ça :
Tu prend dans la boite à outil PrintDocument, PrintPreviewDialog et PrintDialog
et tu écris dans le code de ton bouton :
If MsgBox("Voulez vous voire l'aperçus ?", 4 + 0 + 0, "") = 6 Then
            PrintPreviewDialog1.ShowDialog()
        Else
            If PrintDialog1.ShowDialog = 1 Then
                PrintDocument1.Print()

            End If
        End If

ATTENTION tu mets après Le code du bouton ceci MAIS pas dans le code du bouton :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.SelectionFont, Brushes.Black, 100, 100)
    End Sub

Et tu remplace RichTextBox1.Text par ce que tu veux imprimer, exemple une textBox4.Text
Et en tous sa donne ça pour moi :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Voulez vous voire l'aperçus ?", 4 + 0 + 0, "") = 6 Then
            PrintPreviewDialog1.ShowDialog()
        Else
            If PrintDialog1.ShowDialog = 1 Then
                PrintDocument1.Print()

            End If
        End If

    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.SelectionFont, Brushes.Black, 100, 100)
    End Sub

Voilà, et en plu ça te donne une aperçue !
Cordialement -minotaugames-VANAUR-
0