APERCU AVANT IMPRESSION D'UN FORM

Messages postés
16
Date d'inscription
dimanche 19 octobre 2008
Statut
Membre
Dernière intervention
21 juin 2019
- - Dernière réponse : mg2522
Messages postés
16
Date d'inscription
dimanche 19 octobre 2008
Statut
Membre
Dernière intervention
21 juin 2019
- 21 juin 2019 à 11:51
Bonjour a tous
JE RAME POUR REDUIRE UN FORM AVANT IMPRESSION POUR FORMAT A4

voici mon boulot mais ca ne marche pas je n'est pas la totalité du form donc reduire me parait bien
' IMPRESSION
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click ' Apercu avant l'impression
CaptureScreen()
printPreviewDialog1.Document = printdocument1
printPreviewDialog1.ShowDialog()
End Sub
Private Sub CaptureScreen()
Dim myGraphics As Graphics = Me.CreateGraphics()
Dim s As Size = Me.Size
printdocument1.DefaultPageSettings.Landscape = True
'printPreviewDialog1.PrintPreviewControl.Zoom = 1
printPreviewDialog1.PrintPreviewControl.AutoZoom = False
memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
End Sub
Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printdocument1.PrintPage
e.Graphics.DrawImage(memoryImage, -300, 0)
End Sub

merci d'avance pour vos réponses
cordialement
Michel
Afficher la suite 

2 réponses

Messages postés
1909
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
21 juillet 2019
65
0
Merci
Bonjour !
Pour poster du code prière d'appliquer ceci : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Merci
Commenter la réponse de vb95
Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
82
0
Merci
Bonjour,

La dimension dépend de la résolution de ton imprimante, voir cela:

https://www.corep.fr/le-guide-dimpression-du-format-a4/dimensions-format-a4/format-a4-en-pixel/

ce qui donne:

  'pour 100 dpi
        Me.Height = 1170
        Me.Width = 827


je n'est pas la totalité du form

pour cela voir ce programme qui fait une capture d'écran du Form:

https://codes-sources.commentcamarche.net/source/54783-capture-de-controles

Voilà

mg2522
Messages postés
16
Date d'inscription
dimanche 19 octobre 2008
Statut
Membre
Dernière intervention
21 juin 2019
-
merci pour ta réponse mon form et en 1900 : 980
alors difficile sur un A4 100DPI
je vais me débrouiller avec la copie d'écran
merci encore
cordialement
Michel
Commenter la réponse de cs_Le Pivert