Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic [VB 2005 ] impression

[VB 2005 ] impression

1 réponse
Avatar
Marco
Bonjour,

Le code en VB 6:

printer.ScaleMode=6 ' Unité en millimètre.
'
printer.line(0,145)-(1,145) 'Pliage paysage.
printer.line(102,0)-(102,1) 'Pliage Portrait.
'
Printer.FontBold=True ' Gras.
Printer.FontSize=12 ' Taille police.
Printer.FontName="Arial" ' Type police.
Printer.CurrentX= 70:Printer.CurrentY= 40 ' Position de
l'impression.
printer.Print" MON TEXTE ICI " ' Texte.
'
printer.line(10,45)-(196,141),,B ' 1er cadre.
printer.line(10,145)-(196,241),,B ' 2 eme cadre.

L'equivalent en VB 2005

Dans un printdocument()

e.Graphics.PageUnit = GraphicsUnit.Millimeter
' Unité millimètre
'
e.Graphics.DrawLine(Pens.Black, 0, 145, 1, 145)
'Pliage paysage.
e.Graphics.DrawLine(Pens.Black, 102, 0, 102, 1)
' Pliage Portrait.
'
e.Graphics.DrawString(" MON TEXTE ICI", New Font("Arial",
12, FontStyle.Bold), Brushes.Black, 70,
40)
e.Graphics.DrawRectangle(Pens.Black, 10, 45, 186, 96)
' 1er cadre.
e.Graphics.DrawRectangle(Pens.Black, 10, 145, 186, 96) ' 2
eme cadre.


Mon probleme:
1 ) c'est que les cadres sont avec des traits epais, et je ne sais pas
comment les reduires ?.
2 )J'amerais que mon texte soit aussi souligner ?.
3 ) Pour imprimer en paysage j'ai essaye e.PageSettings.Landscape =
True, mais cela ne change rien toujours en portrait.

D'avance merci

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Marco
Le 24/11/2006, Marco a supposé :
Bonjour,

Le code en VB 6:

printer.ScaleMode=6 ' Unité en millimètre.
'
printer.line(0,145)-(1,145) 'Pliage paysage.
printer.line(102,0)-(102,1) 'Pliage Portrait.
'
Printer.FontBold=True ' Gras.
Printer.FontSize ' Taille police.
Printer.FontName="Arial" ' Type police.
Printer.CurrentX= 70:Printer.CurrentY= 40 ' Position de l'impression.
printer.Print" MON TEXTE ICI " ' Texte.
'
printer.line(10,45)-(196,141),,B ' 1er cadre.
printer.line(10,145)-(196,241),,B ' 2 eme cadre.

L'equivalent en VB 2005

Dans un printdocument()

e.Graphics.PageUnit = GraphicsUnit.Millimeter '
Unité millimètre
'
e.Graphics.DrawLine(Pens.Black, 0, 145, 1, 145)
'Pliage paysage.
e.Graphics.DrawLine(Pens.Black, 102, 0, 102, 1)
' Pliage Portrait.
'
e.Graphics.DrawString(" MON TEXTE ICI", New Font("Arial",
12, FontStyle.Bold), Brushes.Black, 70, 40)
e.Graphics.DrawRectangle(Pens.Black, 10, 45, 186, 96)
' 1er cadre.
e.Graphics.DrawRectangle(Pens.Black, 10, 145, 186, 96) ' 2 eme
cadre.


Mon probleme:
1 ) c'est que les cadres sont avec des traits epais, et je ne sais pas
comment les reduires ?.
2 )J'amerais que mon texte soit aussi souligner ?.
3 ) Pour imprimer en paysage j'ai essaye e.PageSettings.Landscape = True,
mais cela ne change rien toujours en portrait.

D'avance merci



Bonjour,

Pour le point n°2 j'ai trouvé la solution.

Il suffit de mettre un OR et l'autre type de style

e.Graphics.DrawString(" MON TEXTE ICI", New Font("Arial",
12, FontStyle.Bold Or
FontStyle.Underline), Brushes.Black, 70, 40).

Mais le point 1 et 3 je seche toujours. Avez vous une idée ???

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net