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,
Tu peux t'inspirer de cet exemple : Option Explicit
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
Private Sub Form_Load() Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent As Long Me.AutoRedraw = True Deg = 270 Size = 20 RotateMe.lfEscapement = Deg * 10 RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille rFont = CreateFontIndirect(RotateMe) Curent = SelectObject(Me.hdc, rFont) Me.CurrentX = 500 Me.CurrentY = 200 Me.Print "Ceci est un test" End Sub
On pourra alors imaginer utiliser Printer.hDC
-- 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/
"Marc" a écrit dans le message de news:
Bonjour, Ya t'il qqun qui sait imprimer une police true type a l verticale avec l'objet printer ou autre. par avance merci. Marc
Salut,
Tu peux t'inspirer de cet exemple :
Option Explicit
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
Private Sub Form_Load()
Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent As
Long
Me.AutoRedraw = True
Deg = 270
Size = 20
RotateMe.lfEscapement = Deg * 10
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille
rFont = CreateFontIndirect(RotateMe)
Curent = SelectObject(Me.hdc, rFont)
Me.CurrentX = 500
Me.CurrentY = 200
Me.Print "Ceci est un test"
End Sub
On pourra alors imaginer utiliser Printer.hDC
--
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/
"Marc" <contact@asubstra.fr> a écrit dans le message de news:
OdCSHsy7DHA.712@tk2msftngp13.phx.gbl...
Bonjour,
Ya t'il qqun qui sait imprimer une police true type a l verticale avec
l'objet printer ou autre.
par avance merci.
Marc
Tu peux t'inspirer de cet exemple : Option Explicit
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
Private Sub Form_Load() Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent As Long Me.AutoRedraw = True Deg = 270 Size = 20 RotateMe.lfEscapement = Deg * 10 RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille rFont = CreateFontIndirect(RotateMe) Curent = SelectObject(Me.hdc, rFont) Me.CurrentX = 500 Me.CurrentY = 200 Me.Print "Ceci est un test" End Sub
On pourra alors imaginer utiliser Printer.hDC
-- 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/
"Marc" a écrit dans le message de news:
Bonjour, Ya t'il qqun qui sait imprimer une police true type a l verticale avec l'objet printer ou autre. par avance merci. Marc
Marc
OK Merci mais comment on peut choisir la police je doit imprimer un code à barre vertical sur des étiquettes avec un logo qui lui doit etre dan le bon sens.
"ng" a écrit dans le message de news:
Salut,
Tu peux t'inspirer de cet exemple : Option Explicit
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
Private Sub Form_Load() Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent
As
Long Me.AutoRedraw = True Deg = 270 Size = 20 RotateMe.lfEscapement = Deg * 10 RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille rFont = CreateFontIndirect(RotateMe) Curent = SelectObject(Me.hdc, rFont) Me.CurrentX = 500 Me.CurrentY = 200 Me.Print "Ceci est un test" End Sub
On pourra alors imaginer utiliser Printer.hDC
-- 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/
"Marc" a écrit dans le message de news:
> Bonjour, > Ya t'il qqun qui sait imprimer une police true type a l verticale avec > l'objet printer ou autre. > par avance merci. > Marc > > > >
OK Merci mais comment on peut choisir la police je doit imprimer un code à
barre vertical sur des étiquettes avec un logo qui lui doit etre dan le bon
sens.
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:e2Ldsyy7DHA.2432@TK2MSFTNGP10.phx.gbl...
Salut,
Tu peux t'inspirer de cet exemple :
Option Explicit
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
Private Sub Form_Load()
Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent
As
Long
Me.AutoRedraw = True
Deg = 270
Size = 20
RotateMe.lfEscapement = Deg * 10
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille
rFont = CreateFontIndirect(RotateMe)
Curent = SelectObject(Me.hdc, rFont)
Me.CurrentX = 500
Me.CurrentY = 200
Me.Print "Ceci est un test"
End Sub
On pourra alors imaginer utiliser Printer.hDC
--
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/
"Marc" <contact@asubstra.fr> a écrit dans le message de news:
OdCSHsy7DHA.712@tk2msftngp13.phx.gbl...
> Bonjour,
> Ya t'il qqun qui sait imprimer une police true type a l verticale avec
> l'objet printer ou autre.
> par avance merci.
> Marc
>
>
>
>
OK Merci mais comment on peut choisir la police je doit imprimer un code à barre vertical sur des étiquettes avec un logo qui lui doit etre dan le bon sens.
"ng" a écrit dans le message de news:
Salut,
Tu peux t'inspirer de cet exemple : Option Explicit
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
Private Sub Form_Load() Dim RotateMe As LOGFONT, Deg As Long, Size As Long, rFont As Long, Curent
As
Long Me.AutoRedraw = True Deg = 270 Size = 20 RotateMe.lfEscapement = Deg * 10 RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'taille rFont = CreateFontIndirect(RotateMe) Curent = SelectObject(Me.hdc, rFont) Me.CurrentX = 500 Me.CurrentY = 200 Me.Print "Ceci est un test" End Sub
On pourra alors imaginer utiliser Printer.hDC
-- 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/
"Marc" a écrit dans le message de news:
> Bonjour, > Ya t'il qqun qui sait imprimer une police true type a l verticale avec > l'objet printer ou autre. > par avance merci. > Marc > > > >
François Picalausa
Bonjour/soir,
La fiche suivante décrit ce type d'impression: http://support.microsoft.com/default.aspx?175535
La structure logfont (variable de nom lf) possède un FACENAME pour le nom de la police
OK Merci mais comment on peut choisir la police je doit imprimer un code à barre vertical sur des étiquettes avec un logo qui lui doit etre dan le bon sens.
Bonjour/soir,
La fiche suivante décrit ce type d'impression:
http://support.microsoft.com/default.aspx?175535
La structure logfont (variable de nom lf) possède un FACENAME pour le nom de
la police
"Marc" <contact@asubstra.fr> a écrit dans le message de
news:O24P43y7DHA.2056@TK2MSFTNGP10.phx.gbl
OK Merci mais comment on peut choisir la police je doit imprimer un
code à barre vertical sur des étiquettes avec un logo qui lui doit
etre dan le bon sens.
OK Merci mais comment on peut choisir la police je doit imprimer un code à barre vertical sur des étiquettes avec un logo qui lui doit etre dan le bon sens.