1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
If PDialog.ShowDialog = DialogResult.OK Then
Me.BusParam.Imprimante = PDocument.DefaultPageSettings.PrinterSettings.PrinterName
Dim psDlg As New PageSetupDialog
Dim LePageSettings As New System.Drawing.Printing.PageSettings
LePageSettings.PrinterSettings = PDocument.DefaultPageSettings.PrinterSettings
LePageSettings.Landscape = PDocument.DefaultPageSettings.Landscape
LePageSettings.PaperSize = PDocument.DefaultPageSettings.PaperSize
LePageSettings.PaperSource = PDocument.DefaultPageSettings.PaperSource
If Not Bus_Base.IsMinValue(Me.BusParam.Marge_H) Then
LePageSettings.Margins.Top = Me.BusParam.Marge_H * 10
Else
LePageSettings.Margins.Top = 0
End If
If Not Bus_Base.IsMinValue(Me.BusParam.Marge_B) Then
LePageSettings.Margins.Bottom = Me.BusParam.Marge_B * 10
Else
LePageSettings.Margins.Bottom = 0
End If
If Not Bus_Base.IsMinValue(Me.BusParam.Marge_D) Then
LePageSettings.Margins.Right = Me.BusParam.Marge_D * 10
Else
LePageSettings.Margins.Right = 0
End If
If Not Bus_Base.IsMinValue(Me.BusParam.Marge_G) Then
LePageSettings.Margins.Left = Me.BusParam.Marge_G * 10
Else
LePageSettings.Margins.Left = 0
End If
psDlg.PageSettings = LePageSettings
If psDlg.ShowDialog = DialogResult.OK Then
If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
LePageSettings.Margins = System.Drawing.Printing.PrinterUnitConvert.Convert(LePageSettings.Margins, System.Drawing.Printing.PrinterUnit.Display, System.Drawing.Printing.PrinterUnit.TenthsOfAMillimeter)
End If
Me.BusParam.Source = LePageSettings.PaperSource.SourceName
Me.BusParam.Taille = LePageSettings.PaperSize.PaperName
Me.BusParam.Portrait = Not LePageSettings.Landscape
Me.BusParam.Marge_H = OutilsIHM.FormatPxModeArondi(LePageSettings.Margins.Top / 10, 2)
Me.BusParam.Marge_B = OutilsIHM.FormatPxModeArondi(LePageSettings.Margins.Bottom / 10, 2)
Me.BusParam.Marge_D = OutilsIHM.FormatPxModeArondi(LePageSettings.Margins.Right / 10, 2)
Me.BusParam.Marge_G = OutilsIHM.FormatPxModeArondi(LePageSettings.Margins.Left / 10, 2)
Else
Me.BusParam.Source = PDocument.DefaultPageSettings.PaperSource.SourceName
Me.BusParam.Taille = PDocument.DefaultPageSettings.PaperSize.PaperName
Me.BusParam.Portrait = Not PDocument.DefaultPageSettings.Landscape
End If
End If |
Partager