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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
| Private Sub MonDoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim Police As New Font("Arial", 13)
Dim PoliceGras As New Font("Arial", 15, FontStyle.Bold)
Dim XPos As Single = e.MarginBounds.Left
Dim YPos As Single = e.MarginBounds.Top
Dim ChaineImpr As String
Dim MyGraphics As Graphics = e.Graphics
Dim w As Single = CType(e.MarginBounds.Right, Single)
MyGraphics.TranslateTransform(w, 0.0)
e.Graphics.PageUnit = GraphicsUnit.Display
e.PageSettings.Margins = New Printing.Margins(0, 0, 0, 0)
Dim fmt As StringFormat = New StringFormat(StringFormatFlags.DirectionRightToLeft)
fmt.SetDigitSubstitution(New Globalization.CultureInfo("Ar").LCID, StringDigitSubstitute.National)
fmt.FormatFlags = StringFormatFlags.DirectionRightToLeft
fmt.Alignment = StringAlignment.Near
' '----------------------- Impression de l'image -------------------------------
' 'Dim Picture As New Bitmap(Me.PictureBox1.Image)
' ''MyGraphics.DrawImage(Picture, 2.0F * e.MarginBounds.Width / 3.0F, YPos)
' 'MyGraphics.DrawImage(Picture, 1.0F * e.MarginBounds.Width / 30, YPos)
' '------------------------------------------------------------------------------
'---------------------------------------ok-------------------------------------------------
Dim SautLigne As Single = MyGraphics.MeasureString("X", Police).Height
ChaineImpr = Me.TXTCIN.Text & " / " & Me.TXTCNRPS.Text & " / " & Me.TXTMutuel.Text
Dim XPosArabic As Single = XPos - MyGraphics.MeasureString(ChaineImpr, Police).Width
MyGraphics.DrawString(ChaineImpr, PoliceGras, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'-------------------------------------ok---------------------------------------------------
'Dim XPosArabic As Single = XPos - MyGraphics.MeasureString(ChaineImpr, Police).Width
ChaineImpr = "الإسم و اللقب : " & Me.TXTPreNomPers.Text & " " & Me.TXTPerePers.Text & " " & Me.TXTNomPers.Text
MyGraphics.DrawString(ChaineImpr, PoliceGras, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'----------------------------------------ok------------------------------------------------
ChaineImpr = "تاريخ الولادة ومكانها : " & Me.TXTDateNaisPers.Text & " -- " & Me.TXTLieuNais.Text
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'--------------------------------------------------------------------------ok--------------
ChaineImpr = "الحالة العائلية : " & Me.TXTSitFam.Text
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'------------------------------------------ok----------------------------------------------
ChaineImpr = "العنوان الحالي : " & Me.TXTActuelAdresse.Text
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'----------------------------------------information manquante---------------------------------------------
ChaineImpr = "الحساب الجاري : " & Me.TXTRIB.Text & " // " & "المؤسسة المالية : " & Me.TXTBanque.Text & " / " & "الفرع : " & Me.TXTAgence.Text
'MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, e.MarginBounds.Left, YPos)
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'----------------------------------------information manquante---------------------------------------------
ChaineImpr = "تاريخ الإنتداب : " & Me.TXTDateRecrutement.Text & " -- " & "تاريخ الترسيم : " & Me.TXTDateTitularisation.Text & " -- " & "تاريخ التقاعد : " & Me.TXTDateRetraite.Text
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'-----------------------------------------------------------ok----------------------------
ChaineImpr = "الإدارة : " & Me.TXTDirections.Text
MyGraphics.DrawString(ChaineImpr, Police, Brushes.Black, XPosArabic, YPos, fmt)
YPos = YPos + SautLigne * 1.5F
'----------------------------------------------------------------------------------------
End Sub |
Partager