Imprimer en incliné

Version imprimable

Imprimer en incliné

Bonjour à tous,

Je cherche le moyen d'imprimer en incliné selon un angle donné. L'idée est de faire un filigrane (genre "copy" sur une facture).
J'utilise l'objet Graphics pour l'impression. J'ai bien cherché sur Google mais je ne parviens pas à mes fins.

Voici une partie de mon code:

Code:

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
Private Sub GridToPrint_PrintPage(ByVal sender As System.Object, ByVal e As PrintPageEventArgs) Handles GridToPrint.PrintPage
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        'e.Graphics.FillRectangle(Brushes.Gray, 0, 0, 200, 200)
        PrintString(e, "Test Print", New Font("Arial", 25, FontStyle.Bold), Brushes.Black, 5, 10, 0)
        PrintString(e, InvoiceNumber, New Font("Arial", 18, FontStyle.Bold), Brushes.Black, 5, 25, 0)
        PrintString(e, Format(InvoiceDate, "dd/MM/yyyy"), New Font("Arial", 18, FontStyle.Bold), Brushes.Black, 5, 40, 0)
        PrintString(e, "Facture client", New Font("Arial", 25, FontStyle.Bold), Brushes.Black, 5, 60, 0)
        Dim bmp As Bitmap = New Bitmap(My.Resources.Resource1.Logo_Infotec___Copie)
        Dim imageWidth As Integer, imageHeight As Integer
        imageWidth = CInt(bmp.Width / 16)
        imageHeight = CInt(bmp.Height / 16)
        e.Graphics.DrawImage(bmp, 5, 150, imageWidth, imageHeight)
        e.HasMorePages = False
        'DrawAngledText(e.Graphics, New Font("Arial", 20, FontStyle.Bold), Brushes.Black, "COPY", 5, 70, 20, 5)
        'CurveText(e.Graphics, New Font("Arial", 20, FontStyle.Bold), Brushes.Black, "COPY", 5, 70, 20)
    End Sub
 
    Public Sub DrawAngledText(ByVal gr As Graphics, ByVal _
        the_font As Font, ByVal the_brush As Brush, ByVal txt _
        As String, ByVal x As Integer, ByVal y As Integer, _
        ByVal angle_degrees As Single, ByVal y_scale As Single)
        ' Translate the point to the origin.
        gr.TranslateTransform(-x, -y, _
            Drawing2D.MatrixOrder.Append)
 
        ' Rotate through the angle.
        gr.RotateTransform(angle_degrees, _
            Drawing2D.MatrixOrder.Append)
 
        ' Scale vertically by a factor of Tan(angle).
        Dim angle_radians As Double = angle_degrees * Math.PI / 180
        gr.ScaleTransform(1, y_scale, _
            Drawing2D.MatrixOrder.Append)
 
        ' Find the inverse angle and rotate back.
        angle_radians = Math.Atan(y_scale * Math.Tan(angle_radians))
        angle_degrees = CSng(angle_radians * 180 / Math.PI)
        gr.RotateTransform(-angle_degrees, _
            Drawing2D.MatrixOrder.Append)
 
        ' Translate the origin back to the point.
        gr.TranslateTransform(x, y, _
            Drawing2D.MatrixOrder.Append)
 
        ' Draw the text.
        gr.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
        gr.DrawString(txt, the_font, the_brush, x, y)
    End Sub
 
    Private Sub PrintString(ByVal e As PrintPageEventArgs, ByVal Value As String, ByVal PrintFont As Font, ByVal ForeColor As Brush, ByVal X As Single, ByVal Y As Single, ByVal Align As Byte)
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        Dim TextAlign As New StringFormat
        Select Case Align
            Case 0
                TextAlign.Alignment = StringAlignment.Near
            Case 1
                TextAlign.Alignment = StringAlignment.Far
            Case 2
                TextAlign.Alignment = StringAlignment.Center
        End Select
        e.Graphics.DrawString(Value, PrintFont, ForeColor, X, Y, TextAlign)
    End Sub

Merci de votre aide,

Bonjour,

La magie de GDI+ ....

La solution est soi de passer par les API32 ou de contourner la chose (mais dans le fond cela revient au même) en créant un objet Logfont GDI et en utilisant la méthode FromLogFont de l'objet system.drawing.font

Je vous mets ci-dessous la structure LogFont dans sa définition VB6 a adapter pour .NET
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName(LF_FACESIZE) As Byte End Type

17/11/2011, 17h30
Jerome2606

Merci de cette piste, auriez-vous un exemple que ce soit VB6 ou autre d'utilisation de logfont?
J'avoue ne pas bien avoir compris comment je peux utiliser ce logfont.

Cordialement,

Bonjour,

Heu ... c'est pas trivial, ci-dessous la fonction WriteText de ma composition, écrite en VB6, elle fait partie d'une classe donc vous aurez des références à des fonctions internes à cette classe, en gros ces fonctions permettent de mapper un DC en mode métrique et de dessiner en coordonnées réelles à l'aide des API, ce pour que vous compreniez l'essentiel. Attachez vous aux fonctions commentées, qui concernent le texte a proprement parler.

Code:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Public Function writetext(MyText As String, x As Double, y As Double, Taille As Double, align As Long, angle As Double, Affiche As Boolean, Optional Color& = 0, Optional weight As Long = 0, Optional underline As Byte = 0)
Dim lf As LOGFONT
Dim oldfont&
Dim alignorigin&
Dim newfont&
Dim Oldcolor&
Dim Usecolor&
Dim di&
Dim pointattache As POINTAPI
Dim pointlog As POINTAPI
Dim p As POINTGEO
Dim SI As Size
 
setmetrique
p.x = x
p.y = y
pointattache = RtoL(p)
p.x = x + Taille
p.y = y + Taille
pointlog = RtoL(p)
 
'Police logique courante par selection police systeme
oldfont& = SelectObject(mhdc, GetStockObject(0))
di& = GetObjectAPI(oldfont&, Len(lf), lf)
 
'rétablit la police de départ
di& = SelectObject(mhdc, oldfont&)
 
 
lf.lfHeight = pointlog.y - pointattache.y
lf.lfEscapement = -1 * Round(angle * 10, 0)
 
If weight <> 0 Then
lf.lfWeight = weight
End If
 
If underline = 1 Then
lf.lfUnderline = 1
End If
'création d'une fonte à partir de logfont
newfont& = CreateFontIndirect(lf)
oldfont& = SelectObject(mhdc, newfont&)
di& = GetTextExtentPoint32(mhdc, MyText, Len(MyText), SI)
mrectText.Bottom = pointattache.y
mrectText.Top = mrectText.Bottom + SI.Cy
'stocke l'alignement d'origine
'calcul l'ancrex en fonction de l'alignement
'pas de y car pas d'alignement verticale Bottom obligatoire
 
Select Case align
Case 0
alignorigin& = SetTextAlign(mhdc, TA_LEFT Or TA_BOTTOM Or TA_UPDATECP)
mrectText.Left = pointattache.x
Case 1
alignorigin& = SetTextAlign(mhdc, TA_RIGHT Or TA_BOTTOM Or TA_UPDATECP)
mrectText.Left = pointattache.x - SI.Cx
Case 2
alignorigin& = SetTextAlign(mhdc, TA_CENTER Or TA_BOTTOM Or TA_UPDATECP)
mrectText.Left = pointattache.x - SI.Cx / 2
End Select
 
 
mrectText.Right = mrectText.Left + SI.Cx
ConvertEspaceText
 
If Affiche Then
Oldcolor& = GetTextColor(mhdc)
Usecolor& = Color&
dummy& = SetTextColor(mhdc, Usecolor)
di& = MoveToEx&(mhdc, pointattache.x, pointattache.y, pointlog)
di& = TextOut(mhdc, 0, 0, MyText, Len(MyText))
Usecolor& = SetTextColor(mhdc, Oldcolor)
End If
 
di& = SetTextAlign(mhdc, alignorigin&)
di& = SelectObject(mhdc, oldfont&)
 
DeleteObject (newfont&)
 
exitmetrique
End Function

17/11/2011, 22h11
Pol63

dessiner le texte sur un graphics rotationné et l'appliquer sur l'autre
enfin un truc dans le genre

voir dans system.drawing ou system.drawing.drawing2d, il y a ce qu'il faut pour appliquer des transformations, dont les rotations
18/11/2011, 09h32
Jerome2606

Merci de vos réponses, je vais me débrouillé avec vos pistes, j'ai déjà trouvé un article intéressant:
http://www.functionx.com/win32/Lesson14.htm

Cordialement,
18/11/2011, 11h49
Geo2A

Bonjour,

Effectivement article très intéressant, qui va me permettre de modifier mon code VB6 pour utiliser autre chose que la police système par défaut.

Bon courage

ecrire en incline

bonjour Geo2A
Tu n'as pas bien vu dans GDI+ a mon avis.
Tu as GraphicsPath :
-supporte les transformations(matrix).
-Dawstring ou tu peux mettre du texte + des Shapes regroupes ensembles(outline).
Matrix.Shear est une transformation qui fait l'inclinaison de tout ce qu'on veut.
(etirement suivant x ou y ou les 2).
bout de code pour Matrix.Shear :

Code:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
'ajouter un control
'-Panel pour desiner
'-un NumericUpDown1
Imports System.Drawing.Drawing2D
Public Class frmShear
	Public Sub New()
 
		' Cet appel est requis par le Concepteur Windows Form.
		InitializeComponent()
 
		' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
		Me.Font = New Font("Arial", 24)
		Me.ClientSize = New Size(341, 266)
		Me.Name = "frmShear"
		Me.Text = "frm Shear"
		Me.ResizeRedraw = True
		'NumericUpDown
		Me.NumericUpDown1.Dock = DockStyle.Top
		Me.NumericUpDown1.Maximum = 5.0
		Me.NumericUpDown1.Minimum = -5.0
		Me.NumericUpDown1.DecimalPlaces = 2.0
		Me.NumericUpDown1.Value = -1.0
		'panel
		Me.Panel1.BackColor = Color.White
		Me.Panel1.Name = "Panel1"
		Me.Panel1.Dock = DockStyle.Fill
 
	End Sub
	Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
		Dim gr As Graphics = Graphics.FromHwnd(Me.Panel1.Handle)
		Dim shear As Double = Me.NumericUpDown1.Value
		Dim scale As Double = 2.0
		'Chaine à imprimer
		Dim strToPrint As String = "Shear(.5,0)"
		gr.Clear(Color.White)
		Me.SkewText(gr, strToPrint, shear, scale)
	End Sub
 
 
	Private Sub SkewText(ByVal gr As Graphics, ByVal strToPrint As String, ByVal shear As Double, ByVal scale As Double)
 
		'Needed : initialize un rectangle pour  disposition du string
		Dim layoutStr As SizeF = New SizeF(200.0F, 60.0F)
 
 
 
		'Mesure le rectangle du string(a partir de taille)
		Dim strSize As SizeF = gr.MeasureString(strToPrint, Me.Font, layoutStr)
		Dim rectStr As RectangleF = New RectangleF(100, 100, layoutStr.Width, layoutStr.Height)
 
		'Dessine le String au point (50, 100)
		gr.DrawString(strToPrint, Me.Font, Brushes.Black, 50, 100)
		'Dessine  un rectangle noir autour du String 
		gr.DrawRectangle(Pens.Black, layoutStr.Height, 50, 100, rectStr.Height)
 
 
		'Utilise un  Matrix pour le "skew"
		Dim myMatrix = New Matrix()
		gr.Transform = myMatrix
 
		' Mets à Echelle   2
		myMatrix.Scale(scale, scale, MatrixOrder.Append)
		' Etire vers l'avant le sommet haut-gauche (valeur negative) :
		' * direction  x seulement  
		' *1 fois la hauteur du string( etirement=shear*Hauteur par defaut)
		myMatrix.Shear(shear, 0)
		gr.MultiplyTransform(myMatrix)
 
 
		'Mesure le string apres transformation
		strSize = gr.MeasureString(strToPrint, Me.Font, layoutStr)
		rectStr = New RectangleF(100, 100, layoutStr.Width, layoutStr.Height)
		Dim offsetX As Integer = CInt(shear * rectStr.Height)
		If offsetX <= 0.0 Then
			'Dessine et "fill"  un rectangle rouge autour du String 
			Dim redPen As Pen = New Pen(Color.Red, 2.0)
			gr.DrawRectangle(redPen, -offsetX, 0, rectStr.Width, rectStr.Height)
			gr.FillRectangle(Brushes.Aquamarine, -offsetX, 0, rectStr.Width, rectStr.Height)
 
			'Dessine le String a l'origine 
			gr.DrawString(strToPrint, Me.Font, Brushes.Black, -offsetX, 0)
		Else
			'Dessine et "fill"  un rectangle rouge autour du String 
			Dim redPen As Pen = New Pen(Color.Red, 2.0)
			gr.DrawRectangle(redPen, 0, 0, rectStr.Width, rectStr.Height)
			gr.FillRectangle(Brushes.Aquamarine, 0, 0, rectStr.Width, rectStr.Height)
 
			'Dessine le String a l'origine 
			gr.DrawString(strToPrint, Me.Font, Brushes.Black, 0, 0)
 
		End If
 
 
	End Sub

bon code.............

Bonsoir
Pour un texte en diagonale et incliné que l'on a l'habitude de voir sur certains documents.
Un frm et un panel pour tester :

Code:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Imports System.Drawing.Printing
Imports System.Drawing.Drawing2D
 
Public Class frmTxtDiadonal
 
    '*** Les variables globales de la matrice.
    '   *** Variation d'échelle sur l'axe des X.
    Private m11 As Single = 1.0F
    '   *** Inclinaison de l'axe des X.
    Private m12 As Single = 0.0F
    '   *** Inclinaison de l'axe des Y.
    Private m21 As Single = 0.0F
    '   *** Variation de l'échelle sur l'axe des Y.
    Private m22 As Single = 1.0F
    '   *** Translation ou déplacement sur l'axe des X.
    Private dx As Integer = 0
    '   *** Translation sur l'axe des Y.
    Private dy As Integer = 0
 
    '*** Autres variables
    '   *** Angle d'inclinaison en degrés.
    Dim anglDegre As Double
    '   *** Angle d'inclinaison en radians
    Dim anglRad As Double = 0
 
    Private Sub frmTxtDiadonal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' INITIALISATION
        Me.Panel1.Dock = DockStyle.Fill
 
        ' Facteurs d'échelle sur longueur et hauteur du texte.
        m11 = 5
        m22 = 7
        ' angle d'inclinaison en degrés.(par rapport à la verticale)
        anglDegre = -50
        anglRad = anglDegre * Math.PI / 180
        ' Origine de la matrice, soit le centre du Panel.
        dx = CInt(Me.Panel1.Width / 2)
        dy = CInt(Me.Panel1.Height / 2)
 
    End Sub
 
    Private Sub DrawTexte(ByVal gr As Graphics, ByVal txt As String, ByVal fontFamly As FontFamily, _
                          ByVal fontSty As FontStyle, ByVal em As Single) ', ByVal strFormat As StringFormat)
 
        'e.Graphics.PageUnit = GraphicsUnit.Millimeter
 
        gr.PixelOffsetMode = PixelOffsetMode.HighQuality
        gr.SmoothingMode = SmoothingMode.AntiAlias
        gr.CompositingQuality = CompositingQuality.HighQuality
 
        'Repère du centre du Panel (pour info).
        gr.DrawEllipse(Pens.Blue, dx, dy, 2, 2)
 
        'On fait appel à un dessin de tracés auquel on ajoute des éléments et auquel on apporte les transformation voulues,
        'et que l'on collera sur le conteneur choisi en final.
        Dim gpVu As GraphicsPath = New GraphicsPath
 
        ' Calcul du facteur inclinaison.
        m12 = CSng(m11 * Math.Cos(anglRad) / Math.Sin(anglRad))
 
        ' Calcul du rectangle enveloppant du texte.
        Dim sizeTxt As New SizeF
        sizeTxt = MeasureStringSizeFFormatInts(gr, txt, New Font(fontFamly, em, fontSty))
 
        ' Ajout du texte au GraphicsPath, avec centre du text = centre du panel (empirique).
        gpVu.AddString(txt, fontFamly, fontSty, em, New PointF((1 - (sizeTxt.Width / 2.65F)), _
                                                               (1 - (sizeTxt.Height / 3.0F))), StringFormat.GenericDefault)
        ''Ajout du rectangle enveloppant ( pour info).
        'gpVu.AddRectangle(New RectangleF((1 - (sizeTxt.Width / 2.0F)), (1 - (sizeTxt.Height / 2.0F)), sizeTxt.Width, sizeTxt.Height))
 
        ' Application de la matrice de transformation.
        gpVu.Transform(New Matrix(m11, m12, m21, m22, dx, dy))
 
        ' Couleur avec ou sans transparence.
        Dim OneThirdArgb As Color = Color.FromArgb(85, 255, 0, 0)
        Dim OneThirdArgbBrush As New SolidBrush(OneThirdArgb)
        Dim mySolidBrushRed As New SolidBrush(Color.Red)
 
        gr.FillPath(mySolidBrushRed, gpVu) '(OneThirdArgbBrush, gpVu)
 
    End Sub
 
    Private Function MeasureStringSizeFFormatInts(ByVal gr As Graphics, ByVal txt As String, ByVal stringFont As Font) As SizeF
 
        Dim stringSize As New SizeF
        stringSize = gr.MeasureString(txt, stringFont) ', newStringFormat, charactersFitted, linesFilled)
        Return stringSize
 
    End Function
 
    Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        Dim gr As Graphics = e.Graphics
        DrawTexte(gr, "PROJET", New FontFamily("Arial"), FontStyle.Bold, 20.0F) ', StringFormat.GenericTypographic)
    End Sub

20/11/2011, 21h58
Pol63

on lit vraiment des choses étranges ici ...
vous pourriez aussi passer de l'assembleur tant que vous y êtes !

pour écrire en diagonale (sur une imprimante ou un control) il ne faut pas taper 20 lignes de code étranges, encore moins faire de l'appel d'api non sûr dans le temps, mais juste une ligne

Code:

legraphics.RotateTransform(angle)

puis drawstring écrit en diagonale
legraphics.resettransform pour rétablir sans transformation

et pour info appeler gdi+ directement depuis .net n'est pas utile, tout est wrappé dans system.Drawing (sauf quelques fonctions certes, mais rarement utiles)