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
le_troll
Salut,
Pour l'impression de la listBox disons List1:
dim i, j j = 1 ' nombre de lignes Printer.FontNamee = "courier new" Printer.FontSize = 9 Printer.Print "" ' marge haute ' For i = 0 to List1.Listcount - 1 Printer.Print " " & List1.List(i) ' marge droite = " " j = j + 1 ' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc If j = 65 then ' fin de page Printer.NewPage Printer.Print "" ' marge haute j = 1 Endif Next i Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new" par exemple, de la sorte, tu n'aurais pas à gérer déjà la justification pour une même longueur. Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça devient illisible tu peux passer en mode paysage: Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs lignes (en coupant sur un blanc (tester)).... Mais ce type d'impression n'est pas justifiée à droite, alors il faut que tu fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de liste arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc exclut. Puis, si la coupe fait juste la taille prévue, tu imprime, sinon, tu insères des blanc en doublant ceux existant, voire davantage, jusqu'à obtenir la taille déterminé en largeur, puis tu imprimes... Sauf si la ligne est suivuie d'un <rc>, dans ce case tu passe à la ligne suivante...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"Vince" a écrit dans le message de news: 1e3701c47ceb$a048a250$ Je voudrais imprimer le comptenu d'un listbox J'ai aucune idée de comment faire
Deplus, si c'est possible, je voudrais ajuster l'information de chanque ligne du listbox pour qu'elles entrent dans la largeur de la feuille.
P.S : J ai beaucoup d'info dans mon listbox alors il faut que l'impression prenne en charge plusieurs pages.
merci d'avance !!!
Salut,
Pour l'impression de la listBox disons List1:
dim i, j
j = 1 ' nombre de lignes
Printer.FontNamee = "courier new"
Printer.FontSize = 9
Printer.Print "" ' marge haute
'
For i = 0 to List1.Listcount - 1
Printer.Print " " & List1.List(i) ' marge droite = " "
j = j + 1
' fais un teste, je crois que c'est 66 lignes en général, disons 66,
donc
If j = 65 then ' fin de page
Printer.NewPage
Printer.Print "" ' marge haute
j = 1
Endif
Next i
Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new" par
exemple, de la sorte, tu n'aurais pas à gérer déjà la justification pour une
même longueur.
Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça devient
illisible tu peux passer en mode paysage:
Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs lignes (en
coupant sur un blanc (tester))....
Mais ce type d'impression n'est pas justifiée à droite, alors il faut que tu
fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de liste
arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc exclut.
Puis, si la coupe fait juste la taille prévue, tu imprime, sinon, tu insères
des blanc en doublant ceux existant, voire davantage, jusqu'à obtenir la
taille déterminé en largeur, puis tu imprimes... Sauf si la ligne est
suivuie d'un <rc>, dans ce case tu passe à la ligne suivante...
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
"Vince" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1e3701c47ceb$a048a250$a301280a@phx.gbl...
Je voudrais imprimer le comptenu d'un listbox
J'ai aucune idée de comment faire
Deplus, si c'est possible, je voudrais ajuster
l'information de chanque ligne du listbox pour qu'elles
entrent dans la largeur de la feuille.
P.S : J ai beaucoup d'info dans mon listbox alors il faut
que l'impression prenne en charge plusieurs pages.
dim i, j j = 1 ' nombre de lignes Printer.FontNamee = "courier new" Printer.FontSize = 9 Printer.Print "" ' marge haute ' For i = 0 to List1.Listcount - 1 Printer.Print " " & List1.List(i) ' marge droite = " " j = j + 1 ' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc If j = 65 then ' fin de page Printer.NewPage Printer.Print "" ' marge haute j = 1 Endif Next i Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new" par exemple, de la sorte, tu n'aurais pas à gérer déjà la justification pour une même longueur. Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça devient illisible tu peux passer en mode paysage: Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs lignes (en coupant sur un blanc (tester)).... Mais ce type d'impression n'est pas justifiée à droite, alors il faut que tu fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de liste arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc exclut. Puis, si la coupe fait juste la taille prévue, tu imprime, sinon, tu insères des blanc en doublant ceux existant, voire davantage, jusqu'à obtenir la taille déterminé en largeur, puis tu imprimes... Sauf si la ligne est suivuie d'un <rc>, dans ce case tu passe à la ligne suivante...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"Vince" a écrit dans le message de news: 1e3701c47ceb$a048a250$ Je voudrais imprimer le comptenu d'un listbox J'ai aucune idée de comment faire
Deplus, si c'est possible, je voudrais ajuster l'information de chanque ligne du listbox pour qu'elles entrent dans la largeur de la feuille.
P.S : J ai beaucoup d'info dans mon listbox alors il faut que l'impression prenne en charge plusieurs pages.
merci d'avance !!!
ng
Salut,
' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc
Cela dépend de la police et du style, il faut faire le calcul avec Printer.TextHeight()
-- 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/
le_troll a écrit :
Salut,
Pour l'impression de la listBox disons List1:
dim i, j j = 1 ' nombre de lignes Printer.FontNamee = "courier new" Printer.FontSize = 9 Printer.Print "" ' marge haute ' For i = 0 to List1.Listcount - 1 Printer.Print " " & List1.List(i) ' marge droite = " " j = j + 1 ' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc If j = 65 then ' fin de page Printer.NewPage Printer.Print "" ' marge haute j = 1 Endif Next i Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new" par exemple, de la sorte, tu n'aurais pas à gérer déjà la justification pour une même longueur. Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça devient illisible tu peux passer en mode paysage: Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs lignes (en coupant sur un blanc (tester)).... Mais ce type d'impression n'est pas justifiée à droite, alors il faut que tu fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de liste arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc exclut. Puis, si la coupe fait juste la taille prévue, tu imprime, sinon, tu insères des blanc en doublant ceux existant, voire davantage, jusqu'à obtenir la taille déterminé en largeur, puis tu imprimes... Sauf si la ligne est suivuie d'un <rc>, dans ce case tu passe à la ligne suivante...
Salut,
' fais un teste, je crois que c'est 66 lignes en général, disons 66,
donc
Cela dépend de la police et du style, il faut faire le calcul avec
Printer.TextHeight()
--
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/
le_troll <le_trol@paris.fr> a écrit :
Salut,
Pour l'impression de la listBox disons List1:
dim i, j
j = 1 ' nombre de lignes
Printer.FontNamee = "courier new"
Printer.FontSize = 9
Printer.Print "" ' marge haute
'
For i = 0 to List1.Listcount - 1
Printer.Print " " & List1.List(i) ' marge droite = " "
j = j + 1
' fais un teste, je crois que c'est 66 lignes en général,
disons 66, donc
If j = 65 then ' fin de page
Printer.NewPage
Printer.Print "" ' marge haute
j = 1
Endif
Next i
Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new"
par exemple, de la sorte, tu n'aurais pas à gérer déjà la
justification pour une même longueur.
Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça
devient illisible tu peux passer en mode paysage:
Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs
lignes (en coupant sur un blanc (tester))....
Mais ce type d'impression n'est pas justifiée à droite, alors il faut
que tu fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de
liste arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc
exclut. Puis, si la coupe fait juste la taille prévue, tu imprime,
sinon, tu insères des blanc en doublant ceux existant, voire
davantage, jusqu'à obtenir la taille déterminé en largeur, puis tu
imprimes... Sauf si la ligne est suivuie d'un <rc>, dans ce case tu
passe à la ligne suivante...
' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc
Cela dépend de la police et du style, il faut faire le calcul avec Printer.TextHeight()
-- 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/
le_troll a écrit :
Salut,
Pour l'impression de la listBox disons List1:
dim i, j j = 1 ' nombre de lignes Printer.FontNamee = "courier new" Printer.FontSize = 9 Printer.Print "" ' marge haute ' For i = 0 to List1.Listcount - 1 Printer.Print " " & List1.List(i) ' marge droite = " " j = j + 1 ' fais un teste, je crois que c'est 66 lignes en général, disons 66, donc If j = 65 then ' fin de page Printer.NewPage Printer.Print "" ' marge haute j = 1 Endif Next i Printer.Endoc
NB, je te conseil de prendre un police proportionnelle "couRier new" par exemple, de la sorte, tu n'aurais pas à gérer déjà la justification pour une même longueur. Si ça dépasse, tu peux abaisser la taille (FontSize), mais si ça devient illisible tu peux passer en mode paysage: Printer.Orientation = 2
Si ça ne va toujours pas, je te conseil d'écrire sur plusieurs lignes (en coupant sur un blanc (tester)).... Mais ce type d'impression n'est pas justifiée à droite, alors il faut que tu fasses ta propre routine de justification...
Le principe de la justification, est que tu coupes chaque ligne de liste arbitrairement à une valeur fixe ou inférieur, sur le 1er blanc exclut. Puis, si la coupe fait juste la taille prévue, tu imprime, sinon, tu insères des blanc en doublant ceux existant, voire davantage, jusqu'à obtenir la taille déterminé en largeur, puis tu imprimes... Sauf si la ligne est suivuie d'un <rc>, dans ce case tu passe à la ligne suivante...
