Code du bouton Imprimer

code de bouton imprimer par visual basic 2005

je voudrais avoir le CODE de programmation sur VB du bouton imprimer

svp quelqu'un a le bouton imprimer en code ???

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/

à+

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 .

à+

SVP je voudrais avoir le code du bouton imprimer en php

<A href="javascript:window.print()">Imprime...

ctrl p

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-