Je voudrais savoir comment envoyer à l'imprimante un texte avec une rotation de 90° ou autre, l'article 461609 traite de ce sujet mais ne fonctionne pas sous VB 6.
Sinon ou puis-je trouver une liste des fonction API du GDI?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Regarde du coté de l'API CreateFontIndirect() :
'In general section Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Const LF_FACESIZE = 32 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 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail:
Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True 'Rotate degrees Deg = 270 'Size (in points) Size = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 500 Me.CurrentY = 200 Me.Print ":-)" End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
GRANGOUROU a écrit :
Je voudrais savoir comment envoyer à l'imprimante un texte avec une rotation de 90° ou autre, l'article 461609 traite de ce sujet mais ne fonctionne pas sous VB 6.
Sinon ou puis-je trouver une liste des fonction API du GDI?
Salut,
Regarde du coté de l'API CreateFontIndirect() :
'In general section
Private Declare Function CreateFontIndirect Lib "gdi32" Alias
"CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal
hObject As Long) As Long
Private Const LF_FACESIZE = 32
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
'In form
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim RotateMe As LOGFONT
'Set graphic-mode to 'persistent graphic'
Me.AutoRedraw = True
'Rotate degrees
Deg = 270
'Size (in points)
Size = 20
'Set the rotation degree
RotateMe.lfEscapement = Deg * 10
'Set the height of the font
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY
'Create the font
rFont = CreateFontIndirect(RotateMe)
'Select the font n the Form's device context
Curent = SelectObject(Me.hdc, rFont)
'Print some text ...
Me.CurrentX = 500
Me.CurrentY = 200
Me.Print ":-)"
End Sub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
GRANGOUROU <GRANGOUROU@discussions.microsoft.com> a écrit :
Je voudrais savoir comment envoyer à l'imprimante un texte avec une
rotation de 90° ou autre, l'article 461609 traite de ce sujet mais ne
fonctionne pas sous VB 6.
Sinon ou puis-je trouver une liste des fonction API du GDI?
'In general section Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Const LF_FACESIZE = 32 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 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail:
Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True 'Rotate degrees Deg = 270 'Size (in points) Size = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 500 Me.CurrentY = 200 Me.Print ":-)" End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
GRANGOUROU a écrit :
Je voudrais savoir comment envoyer à l'imprimante un texte avec une rotation de 90° ou autre, l'article 461609 traite de ce sujet mais ne fonctionne pas sous VB 6.
Sinon ou puis-je trouver une liste des fonction API du GDI?
Zoury
Salut!
Je voudrais savoir comment envoyer à l'imprimante un texte avec une rotation de 90° ou autre,
regarde le dernier exemple de cette page, nommé Coordinate Spaces and Transformations. http://www.mvps.org/EDais/Files/Demo/index.html traduit de l'article suivant : http://msdn.microsoft.com/library/en-us/gdi/cordspac_0inn.asp
l'article 461609 traite de ce sujet mais ne fonctionne pas sous VB 6.
je ne le trouve pas .. tu as le lien ?
Sinon ou puis-je trouver une liste des fonction API du GDI?
Je voudrais savoir comment envoyer à l'imprimante
un texte avec une rotation de 90° ou autre,
regarde le dernier exemple de cette page, nommé Coordinate Spaces and
Transformations.
http://www.mvps.org/EDais/Files/Demo/index.html
traduit de l'article suivant :
http://msdn.microsoft.com/library/en-us/gdi/cordspac_0inn.asp
l'article 461609 traite de ce sujet mais ne fonctionne
pas sous VB 6.
je ne le trouve pas .. tu as le lien ?
Sinon ou puis-je trouver une liste des fonction API du GDI?
Je voudrais savoir comment envoyer à l'imprimante un texte avec une rotation de 90° ou autre,
regarde le dernier exemple de cette page, nommé Coordinate Spaces and Transformations. http://www.mvps.org/EDais/Files/Demo/index.html traduit de l'article suivant : http://msdn.microsoft.com/library/en-us/gdi/cordspac_0inn.asp
l'article 461609 traite de ce sujet mais ne fonctionne pas sous VB 6.
je ne le trouve pas .. tu as le lien ?
Sinon ou puis-je trouver une liste des fonction API du GDI?
> que signifie l'attribut lfFaceName pour le type LOGFONT???
regarde la fiche d'aide pour structure LOGFONT, tu as la description des paramètres. http://msdn.microsoft.com/library/en-us/dv_wcemfc4/html/aflrflogfont.asp
pour ma part, je n'étais pas certain de la différence entre entre lfFaceName et lfCharSet... ;O)
> que signifie l'attribut lfFaceName pour le type LOGFONT???
regarde la fiche d'aide pour structure LOGFONT, tu as la description des
paramètres.
http://msdn.microsoft.com/library/en-us/dv_wcemfc4/html/aflrflogfont.asp
pour ma part, je n'étais pas certain de la différence entre entre lfFaceName
et lfCharSet... ;O)
> que signifie l'attribut lfFaceName pour le type LOGFONT???
regarde la fiche d'aide pour structure LOGFONT, tu as la description des paramètres. http://msdn.microsoft.com/library/en-us/dv_wcemfc4/html/aflrflogfont.asp
pour ma part, je n'étais pas certain de la différence entre entre lfFaceName et lfCharSet... ;O)
