APERCU AVANT IMPRESSION D'UN FORM

mg2522
Messages postés
16
Date d'inscription
dimanche 19 octobre 2008
Statut
Membre
Dernière intervention
21 juin 2019
- 20 juin 2019 à 16:35
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

2 réponses

vb95
Messages postés
2630
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
19 mai 2022
151
21 juin 2019 à 06:59
Bonjour !
Pour poster du code prière d'appliquer ceci : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Merci
0
cs_Le Pivert
Messages postés
7745
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 mai 2022
129
21 juin 2019 à 10:58
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à

0
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
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
0