MARGE IMPRESSION

Question

SIMON LEBON:
Sur VB, il semble que toute impression lancée avec l'objet printer, obéit à une marge.
Est-il possible de modifier cette marge?

Dans mon cas, je veux imprimer une form de hauteur 29 cm.
Mais le bout de cette form est coupé a environ 1 cm de la fin.

C'est super important pour mon boulot! Pleeeeeeeeeeeease.

Renfield · Answer

Il faut déja que tu valide le fait que tu ne cherches pas à imprimer en dehors des marges physiques de ton imprimante....... (29 Cm , ca laisse 7mm de marge.... soir 3.5mm de chaque coté.... pas très grand comme marge !!! )

sinon, tout dépends de ton code pour imprimer...

si tu utilises PrintForm, tu n'a je crois que très peu de controle sur ce que tu fais. Essaies de t'orienter vers un PaintPicture.

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

ludocam21 · Answer

Bonjour, je pense que mon probl&#232;me est similaire,

en fait je voudrais &#233;tablir une marge de 2 cm &#224; gauche &#224; l'impression de ma textbox mais je n'y arrive pas. J'ai essay&#233; avec &#231;a: 

Printer.ScaleMode = vbMillimeters 
Printer.CurrentX = 20 

mais la marge ne s'applique qu'&#224; la premi&#232;re ligne de texte et pas au reste. 

si quelqu'un peut m'aider &#231;a serait sympa

Renfield · Answer

donne moi les quelques instructions qui suivent, qui concernent l'impression.
CurrentX definit la position X courante... elle est constamment  modifi&#233;e d&#232;s que qq chose est dessin&#233;.

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

ludocam21 · Answer

voici mon code en entier:

Private Sub IMPRIMER_SELECTION_Click()
    Printer.Font = "Times New Roman"
    Printer.FontSize = 12
    Printer.ScaleMode = vbMillimeters
    Printer.CurrentY = 20
    Printer.Print Text1.SelText
    Printer.EndDoc
End Sub

Renfield · Answer

ok.... Print reviens a la ligne a chaque fois, et ce faisant replace CurrentX &#224; 0 ...

pour corriger cela, il faut imprimer les lignes une a une... voici a quoi peut ressembler le code n&#233;cessaire

Dim Lignes() As String
Lignes = Split ( Text1.SelText , VbNewLine )

For i = LBound ( Lignes) to Ubound ( Lignes)
    Printer.CurrentX = 20
    Printer.Print Lignes(i)
    Printer.CurrentY = Printer.CurrentY + 7
Next i

CurrentX = 20

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

ludocam21 · Answer

Merci, ton code m'aide beaucoup; mais c'est pas encore bon; en fait la marge est appliqu&#233;e aux autres lignes, mais il m'imprime deux fois la m&#234;me chose &#224; la suite; d'abord le texte avec la marge &#224; deux centim&#232;tres (&#231;a c'est bon) et le m&#234;me texte sans la marge &#224; la suite;
Voici mon code avec ce que tu m'a pass&#233;:

Private Sub IMPRIMER_SELECTION_Click()
    Dim Lignes() As String
Lignes = Split(Text1.SelText, vbNewLine)


For i = LBound(Lignes) To UBound(Lignes)
    Printer.CurrentX = 20
    Printer.Print Lignes(i)
    Printer.CurrentY = Printer.CurrentY + 7
Next i  
    
    Printer.ScaleMode = vbMillimeters
    Printer.CurrentX = 20
    Printer.Font = "Times New Roman"
    Printer.FontSize = 12
    Printer.Print Text1.SelText
    Printer.EndDoc
End Sub

Et un autre probl&#232;me c'est que &#231;a saute une ligne entre chaque ligne - je me suis dit que c'&#233;tait &#224; cause de "Printer.CurrentY = Printer.CurrentY + 7"
donc j'ai enlev&#233; le "+7" et la &#231;a imprime bien mais y'a toujours les texte en double et superpos&#233; sur la fin;

merci de ton aide si tu vois pourquoi &#231;a peut faire &#231;a

Renfield · Answer

normal, tu lui dit toujours d'impreimer le texte "a l'ancienne"

Private Sub IMPRIMER_SELECTION_Click()
    Dim Lignes() As String
Lignes = Split(Text1.SelText, vbNewLine)

    Printer.ScaleMode = vbMillimeters
    Printer.Font = "Times New Roman"
    Printer.FontSize = 12

For i = LBound(Lignes) To UBound(Lignes)
    Printer.CurrentX = 20
    Printer.Print Lignes(i)
'    Printer.CurrentY = Printer.CurrentY + 7   INUTILE : Print d&#233;cale tout seul le curseur afin de sauter une ligne
Next i  
    
'    Printer.Print Text1.SelText   NE PAS REDESSINER LE TEXTE ....
    Printer.EndDoc
End Sub

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

ludocam21 · Answer

Merci! c'est g&#233;nial &#231;a marche nickel !


juste une derni&#232;re question, tant que j'y suis, pour d&#233;finir la marge &#224; droite, et celle d'en haut et d'en bas, il faut faire comment ?


Il me sembe que celle du haut &#231;a doit &#234;tre currenty, mais je sais pas trop pour le reste.

Renfield · Answer

Il va falloir t'amuser avec d'autres armes, si tu veux cr&#233;er une marge droite.

Je pense aux API, et plus particuli&#232;rement &#224; DrawText.

l'avantage est que tu n'aura besoin que d'un appel pour g&#233;rer toutes tes marges, et toutes tes lignes (plus de Split)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

MARGE IMPRESSION

9 réponses

Discussions similaires