Rotation du texte sur l'imprimante

Question

Bonjour à tous,

J'ai besoin d'imprimer un texte verticalement sur l'objet printer.
J'ai essayé avec createfont en modifier les propriétés et ça fonctionne si j'imprime sur un form mais pas sur l'imprimante.
C'est quoi le truc que j'ai pas compris ??

Merci!

P__ROMEO · Answer

Comment est ce que tu &#233;cris verticalement? tu peux faire passer le code?

Moi, pour le faire, j'&#233;cris mon texte dans une picture, et en passant par pas mal de ligne de code, je l'incline
sur ma forme, ca passe, et quand j'imprime aussi.
Si ca t'int&#233;resse, et si ya pas mieux, je mets le code ici. (je ne veux pas encombrer, si ya mieux)

seulement, j'ai un bl&#234;me que je n'arrive pas &#224; r&#233;soudre, c'est que quand je r&#233;duis la forme, ou si elle passe
derri&#232;re une autre forme, ou un msgbox, mon texte s'efface (comme la gomme de paint)

en passant, si on peut m'aider a trouver comment r&#233;soudre cela.

cs_DARKSIDIOUS · Answer

Attention, les API Windows travaille en Pixels et non en twips, ton probl&#232;me peut venir de l&#224; !



Essaye en modifiant le scalemode de ton objet Printer.

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

element1488 · Answer

Merci pour les réponses

P_ROMEO:
Essai de mettre la propriété AutoRedraw à True, ça marche pour moi.
Voici le code que j'utilise, il n'est pas de moi, il m'a été donné par un ami.
''''''''''''''''DECLARATIONS'''''''''''''''''''''

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 As String * LF_FACESIZE
End Type

Private Declare Function SetGraphicsMode Lib "gdi32" (ByVal hdc As Long, _
    ByVal iMode As Long) As Long
Private Declare Function MulDiv Lib "kernel32" (ByVal nNumber As Long, _
    ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
    ByVal nIndex As Long) As Long
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 Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, _
    Source As Any, ByVal bytes As Long)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PrintRotatedText(PB As Object, ByVal Text As String, _
                            Optional ByVal angle As Integer = -900, Optional x As Variant, _
                            Optional y As Variant)
                            
Dim hfont As Long
Dim holdfont As Long
Dim Font As LOGFONT

Const GM_ADVANCED = 2
Const LOGPIXELSY = 90

SetGraphicsMode PB.hdc, GM_ADVANCED

Font.lfHeight = MulDiv(PB.FontSize, GetDeviceCaps(PB.hdc, LOGPIXELSY), 72)
Font.lfWidth = 0
Font.lfEscapement = angle
Font.lfOrientation = angle
Font.lfWeight = IIf(PB.FontBold, 700, 400)
Font.lfItalic = IIf(PB.FontItalic, 1, 0)
Font.lfUnderline = IIf(PB.FontUnderline, 1, 0)
Font.lfStrikeOut = IIf(PB.FontStrikethru, 1, 0)
Font.lfCharset = 0
Font.lfOutPrecision = 0
Font.lfClipPrecision = 0
Font.lfQuality = 2
Font.lfPitchAndFamily = 33
Font.lfFaceName = PB.FontName & vbNullChar

hfont = CreateFontIndirect(Font)
holdfont = SelectObject(PB.hdc, hfont)

If Not IsMissing(x) Then PB.CurrentX = x
If Not IsMissing(y) Then PB.CurrentY = y

PB.Print Text

SelectObject PB.hdc, holdfont
DeleteObject hfont


End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Command1_Click()
Dim PosX, PosY As Integer
Dim strToPrint As String


PosY = 200
PosX = 200


Me.Font = "Arial"
Me.Font.Bold = False
Me.Font.Italic = False
Me.Font.Underline = False
Me.Font.Strikethrough = False
Me.Font.Size = 10
strToPrint = "Rotation de texte"
PrintRotatedText Me, strToPrint, 2700, PosX, PosY


End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DARKSIDIOUS:
J'ai essayé tous les Scalemode et ça ne fonctionne toujours pas.
Ça commence à être un peu déprimant :-)

P__ROMEO · Answer

Je pensais t'aider, et voila que tu r&#233;souds mon probl&#232;me en une action. j'ai mis AutoRedraw a true, et ca marche.
Et, ton code et celui que j'utilise sont presque identique. moi je l'ai pris sur le site. si toi aussi, alors pourquoi
avoir modifi&#233; certaine ligne.?

P__ROMEO · Answer

je ne t'ai meme pas remerci&#233; pour ta r&#233;ponse.
Merci

P__ROMEO · Answer

Bonsoir!

      VOILA, maintenant j'ai ton probl&#232;me. et n'arrive pas &#224; le r&#233;soudre. toi, tu l'as r&#233;solu?? (je dois rendre mon travail dans 8 jours. ce n'etais vraiment pas le moment de planter. Mais bon, avec moi, c'est toujours comme ca.)  Si tu as pu voir d'ou vien l'erreur, fais signe.

         DARKSIDIOUS, si c'est cela le probl&#232;me, comment on peut le r&#233;soudre. (je sais, tu as dis que c'est possible que ce soit le probl&#232;me, non pas que c'est le probl&#232;me)

A+

P__ROMEO · Answer

DARKSIDIOUS , si je te demandes comment faire, c'est parce que j'ai changer la valeur de ScalMode, et pour l'objet printer, et pour le picture box, mais, rien a faire. je ne comprend pas pour quoi ca ne marche pas.
Bone journ&#233;e

cs_DARKSIDIOUS · Answer

Un petit exemple tir&#233; de l'API Guide, &#224; adapter &#224; votre code bien entendu :



'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 "Salut !"

    

    Call Printer.PaintPicture(Me.Image, 0, 0)

    Printer.EndDoc

End Sub


_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

P__ROMEO · Answer

Salut 13557  DARKSIDIOUS
Merci. Tu m'as sauv&#233;.

J&#146;ai essay&#233; ton code, je ne sais pas pourquoi, mais, sur Dim RotateMe As LOGFONT mon appli s'arr&#234;te.
J&#146;ai cherch&#233;, mais ne sais pas d'ou vient l'erreur. 

Mais, en m&#234;me temps, l'adresse qui est au dessus de cette ligne m'a men&#233; vers un code magnifique. Il est assez grand. Je le mettrais si &#231;a ne d&#233;range pas qu'on prenne un code sur un autre site, et qu'on le copie dans le monde VbFrance.

Ce code permet de faire une capture d'&#233;cran, enti&#232;re, ou seulement la form, ou avec la barre de titre...
et on peut imprimer &#224; la fin.

(je n'ai pas encore fini de l'adapter a mon programme, mais, &#224; premi&#232;re vue, ca passe. esp&#233;rons qu'il n'y aura pas de probl&#232;me)
A+ et merci<?xml:namespace prefix  o ns "urn:schemas-microsoft-com:office:office" />

element1488 · Answer

Salut,
   Le truc de capturer l'écran et de l'imprimer ça marche avec une imprimante laser ou à haute résolution, mais moi je dois imprimer sur une imprimante d'étiquettes à transfert thermique. Une capture d'écran devient peu lisible à cause de la faible résolution. C'est pour ça que je cherche un truc pour produire une rotation sur l'objet Printer.
Et je cherche et je déprime !!

P__ROMEO · Answer

Tu as essay&#233; le code de DARKSIDIOUS ?
Moi, j'ai pens&#233; &#224; transf&#233;rer mes donn&#233;es dans une feuille excel, et, une fois ma table (les donn&#233;es de ma table) dans le fichier, grace &#224; une macro, ou VBA, j'incline le texte voulu, et imprime la feuille. Mais, je ne mettrise pas VBA. si toi tu penses y arriver, ca deverais &#234;tre assez propre.

Rotation du texte sur l'imprimante

11 réponses

Discussions similaires