jiel2007
Messages postés17Date d'inscriptionmercredi 2 mars 2011StatutMembreDernière intervention10 septembre 2011
-
7 juil. 2011 à 17:09
jiel2007
Messages postés17Date d'inscriptionmercredi 2 mars 2011StatutMembreDernière intervention10 septembre 2011
-
23 juil. 2011 à 14:22
Bonjour à toutes et à tous,
J'ai un petit problème avec la fonction PageSetupDialog que j'utilise en VB 2008 Express Edition.
J'utilise la très classique routine ci-dessous pour définir cette fonction et poser les marges minimum à 5mm. Cela fonctionne parfaitement. Toutefois, les marges par défaut à l'ouverture de la boite de dialogue sont égales à 25,4mm ( 1 pouce ).
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim MiseEnPage As New PageSetupDialog
Dim MonDoc As New PrintDocument
With MiseEnPage
.Document = MonDoc
.AllowOrientation = False
.AllowPaper = False
.EnableMetric = True
.MinMargins = New Margins(20, 20, 20, 20)
.ShowDialog(Me)
.Dispose()
End With
End Sub
Je voudrais qu'à l'ouverture de la boite de dialogue, les marges par défaut ne soient plus 25,4mm
mais une valeur librement prédéfinie comme par exemple 10mm.
Comment faire ?
Merci d'avoir lu ce message et pour l'aide ou les conseils que vous pourriez m?apporter.