Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 940 fois - Téléchargée 34 fois
Option Explicit '---------- imprime ecran -------------- Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_SNAPSHOT As Byte = &H2C '--------------------------------------- Private Sub Form_Click() Imprime End Sub Public Sub Imprime() Dim DebutX, DebutY, Largeur, Hauteur As Integer Picture2.Picture = Clipboard.GetData(vbCFDIB) 'met le presse-papier dans Picture2.Picture Clipboard.Clear 'vide le presse-papier Call keybd_event(VK_SNAPSHOT, 1&, 0&, 0&) 'met la fenêtre dans le presse-papier DoEvents Picture1.Picture = Clipboard.GetData(vbCFDIB) 'met le presse-papier dans Picture1.Picture Printer.ColorMode = 1 '2 = mode couleur Printer.ScaleMode = 5 'en pouce Printer.Orientation = 1 ' 2 = paysage Largeur = 4 'largeur de la fenêtre en pouce Hauteur = 6 'Hauteur de la fenêtre en pouce DebutX = (Printer.ScaleWidth - Largeur) / 2 'début sur largeur pour l'impression centrer sur la fenêtre DebutY = (Printer.ScaleHeight - Hauteur) / 2 'début sur hauteur pour l'impression centrer sur la fenêtre Printer.PaintPicture Picture1.Picture, DebutX, DebutY, Largeur, Hauteur Printer.EndDoc Clipboard.Clear 'vide le presse-papier Clipboard.SetData Picture2.Picture 'remet le contenu du presse-papier s'il y a lieu DoEvents Unload Me End Sub
GENIAL TON CODE, mais peut ton juste imprimer une form qui est a l'écran sans imprimer la barre de Windows?
cordialemnt
Mais ça fait déjà pas mal de temps que je cherche........... :-/
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.