Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Impression, problème enchaînement ";" ???

Impression, problème enchaînement ";" ???

10 réponses
Avatar
LE TROLL
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en effet, dans
une même ligne (et toutes les lignes), je voudrais mettre à la fois du "non
graissé", puis finir sur du "graissé", ceci normalement avec l'enchaînement
du point-virgule, mais ça ne marche pas, ou ce n'est pas accepté suivant les
cas, voici ce que je fais:

print1 et print2 sont 2 strings à imprimer sur la même ligne respectivement,
non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le second
"Printer.print", j'en déduis qu'il faut un seul Printer.Print par ligne
d'impression, certes, mais comment enchaîner pour ce ça marche???

Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

10 réponses

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
Eric
Bonjour,

Tout simplement comme ceci, je pense :
Private Sub Command1_Click()
Dim print1 As String, print2 As String
print1 = "TOTO": print2 = "TEST DU GRAS"
' un espace après & maintien sur la ligne par ;
Printer.Print print1 & " ";
Printer.FontBold = True
Printer.Print print2
Printer.FontBold = False
Printer.EndDoc
End Sub

--
A+
Eric

Lien à suivre : http://users.skynet.be/mpfa/
Avatar
Christian HUBERT-HUGOUD- Xtrem7
Essaie quelque chose comme cela :

with Printer
.FontBold = false
.print Print1;
.FontBold = true
.print Print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
end with

Cordialement

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:%
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en effet,


dans
une même ligne (et toutes les lignes), je voudrais mettre à la fois du


"non
graissé", puis finir sur du "graissé", ceci normalement avec


l'enchaînement
du point-virgule, mais ça ne marche pas, ou ce n'est pas accepté suivant


les
cas, voici ce que je fais:

print1 et print2 sont 2 strings à imprimer sur la même ligne


respectivement,
non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le second
"Printer.print", j'en déduis qu'il faut un seul Printer.Print par ligne
d'impression, certes, mais comment enchaîner pour ce ça marche???

Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !





Avatar
LE TROLL
Merci de ta réponse, cependant, si tu avais mis ta réponse dans un
éditeur tu aurais vu qu'une ligne est en rouge, ça coince, c'est pas parce
qu'on met "With" que ça change quelque chose, ça évite simplement les
répétitions en rendant moins explicite...

Tu écris:
With Printer
.FontBold = False
.print Print1;
.FontBold = True
.print print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
End With

Et ben ton .print.Print1 n'est pas reconnu (en rouge), car ça fait comme
si tu écrivais:

Printer.FontBold = False Printer.print Print1;

Ce qui ne risque pas de fonctionner, faudrait au minimum ":" entre les
instructions, mais ça ne changerait rien, tu as le droit à une seconde
réponse ;o)
----------


"Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le
message de news: cqrai4$mfv$
Essaie quelque chose comme cela :

with Printer
.FontBold = false
.print Print1;
.FontBold = true
.print Print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
end with

Cordialement

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:%
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en effet,


dans
une même ligne (et toutes les lignes), je voudrais mettre à la fois du


"non
graissé", puis finir sur du "graissé", ceci normalement avec


l'enchaînement
du point-virgule, mais ça ne marche pas, ou ce n'est pas accepté suivant


les
cas, voici ce que je fais:

print1 et print2 sont 2 strings à imprimer sur la même ligne


respectivement,
non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le second
"Printer.print", j'en déduis qu'il faut un seul Printer.Print par ligne
d'impression, certes, mais comment enchaîner pour ce ça marche???

Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !









Avatar
ng
Salut,

Ca ne peut pas marcher ainsi, on est pas en C :)
Pour mettre plusierus instruction sur la même ligne e utilise le :
Sinon effectivement pour ne pas aller à la ligne avec un print on mets un ;
au bout mais rien d'autre après (c'est plus simple).
Il faut donc utiliser un code comme celui de Christian au d'Ecric.

--
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/

LE TROLL wrote:
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en effet,
dans une même ligne (et toutes les lignes), je voudrais mettre à la
fois du "non graissé", puis finir sur du "graissé", ceci normalement
avec l'enchaînement du point-virgule, mais ça ne marche pas, ou ce
n'est pas accepté suivant les cas, voici ce que je fais:

print1 et print2 sont 2 strings à imprimer sur la même ligne
respectivement, non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le
second "Printer.print", j'en déduis qu'il faut un seul Printer.Print
par ligne d'impression, certes, mais comment enchaîner pour ce ça
marche???
Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.


Avatar
ng
En effet pas de .print avec un with il me semble, il suffit simplement
d'écrire :

With Printer
.FontBold = False
Printer.print Print1;
.FontBold = True
Printer.print print2
End With

--
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/

LE TROLL wrote:
Merci de ta réponse, cependant, si tu avais mis ta réponse
dans un éditeur tu aurais vu qu'une ligne est en rouge, ça coince,
c'est pas parce qu'on met "With" que ça change quelque chose, ça
évite simplement les répétitions en rendant moins explicite...

Tu écris:
With Printer
.FontBold = False
.print Print1;
.FontBold = True
.print print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
End With

Et ben ton .print.Print1 n'est pas reconnu (en rouge), car ça fait
comme si tu écrivais:

Printer.FontBold = False Printer.print Print1;

Ce qui ne risque pas de fonctionner, faudrait au minimum ":" entre
les instructions, mais ça ne changerait rien, tu as le droit à une
seconde réponse ;o)
----------


"Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le
message de news: cqrai4$mfv$
Essaie quelque chose comme cela :

with Printer
.FontBold = false
.print Print1;
.FontBold = true
.print Print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
end with

Cordialement

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:%
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en
effet, dans une même ligne (et toutes les lignes), je voudrais
mettre à la fois du "non graissé", puis finir sur du "graissé",
ceci normalement avec l'enchaînement du point-virgule, mais ça ne
marche pas, ou ce n'est pas accepté suivant les cas, voici ce que
je fais: print1 et print2 sont 2 strings à imprimer sur la même ligne
respectivement, non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print;
print2; Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le
second "Printer.print", j'en déduis qu'il faut un seul
Printer.Print par ligne d'impression, certes, mais comment
enchaîner pour ce ça marche??? Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !






Avatar
LE TROLL
Salut, non, le code proposé ne fonctionne pas mieux...
--------

"ng" a écrit dans le message de news:
%23dqY$
Salut,

Ca ne peut pas marcher ainsi, on est pas en C :)
Pour mettre plusierus instruction sur la même ligne e utilise le :
Sinon effectivement pour ne pas aller à la ligne avec un print on mets un
; au bout mais rien d'autre après (c'est plus simple).
Il faut donc utiliser un code comme celui de Christian au d'Ecric.

--
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/

LE TROLL wrote:
Impression, problème enchaînement ";" ???

Bonjour,

J'ai un problème d'enchaînement d'impression (de texte), en effet,
dans une même ligne (et toutes les lignes), je voudrais mettre à la
fois du "non graissé", puis finir sur du "graissé", ceci normalement
avec l'enchaînement du point-virgule, mais ça ne marche pas, ou ce
n'est pas accepté suivant les cas, voici ce que je fais:

print1 et print2 sont 2 strings à imprimer sur la même ligne
respectivement, non graissées et graissées

Printer.Print print1; Printer.FontBold = True; print2
Printer.FontBold = False
-->LA ça me met "Faux" en fin de ligne

Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
Printer.FontBold = False
-->LA ça plante, et ça me met d'autorité un ";" en trop après le
second "Printer.print", j'en déduis qu'il faut un seul Printer.Print
par ligne d'impression, certes, mais comment enchaîner pour ce ça
marche???
Je voudrais:
Imprime variable1; font_graissée; Imprime variable2
fonte_non_graissée

A vos plumes ???

Merci, au revoir et à bientôt.






Avatar
Christian HUBERT-HUGOUD- Xtrem7
Bin voila...

Printer.FontBold = False
Printer.Print Print1;
Printer.FontBold = True
Printer.Print print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante


Cordialement

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:%
Merci de ta réponse, cependant, si tu avais mis ta réponse dans un
éditeur tu aurais vu qu'une ligne est en rouge, ça coince, c'est pas parce
qu'on met "With" que ça change quelque chose, ça évite simplement les
répétitions en rendant moins explicite...

Tu écris:
With Printer
.FontBold = False
.print Print1;
.FontBold = True
.print print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
suivante
End With

Et ben ton .print.Print1 n'est pas reconnu (en rouge), car ça fait


comme
si tu écrivais:

Printer.FontBold = False Printer.print Print1;

Ce qui ne risque pas de fonctionner, faudrait au minimum ":" entre les
instructions, mais ça ne changerait rien, tu as le droit à une seconde
réponse ;o)
----------


"Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le
message de news: cqrai4$mfv$
> Essaie quelque chose comme cela :
>
> with Printer
> .FontBold = false
> .print Print1;
> .FontBold = true
> .print Print2 'ici, s'il n'y a pas de ; alors on passe à la ligne
> suivante
> end with
>
> Cordialement
>
> Christian Hubert-Hugoud
>
> "LE TROLL" <le a écrit dans le message de
> news:%
>> Impression, problème enchaînement ";" ???
>>
>> Bonjour,
>>
>> J'ai un problème d'enchaînement d'impression (de texte), en effet,
> dans
>> une même ligne (et toutes les lignes), je voudrais mettre à la fois du
> "non
>> graissé", puis finir sur du "graissé", ceci normalement avec
> l'enchaînement
>> du point-virgule, mais ça ne marche pas, ou ce n'est pas accepté


suivant
> les
>> cas, voici ce que je fais:
>>
>> print1 et print2 sont 2 strings à imprimer sur la même ligne
> respectivement,
>> non graissées et graissées
>>
>> Printer.Print print1; Printer.FontBold = True; print2
>> Printer.FontBold = False
>> -->LA ça me met "Faux" en fin de ligne
>>
>> Printer.Print print1; Printer.FontBold = True; Printer.Print; print2;
>> Printer.FontBold = False
>> -->LA ça plante, et ça me met d'autorité un ";" en trop après le second
>> "Printer.print", j'en déduis qu'il faut un seul Printer.Print par ligne
>> d'impression, certes, mais comment enchaîner pour ce ça marche???
>>
>> Je voudrais:
>> Imprime variable1; font_graissée; Imprime variable2
>> fonte_non_graissée
>>
>> A vos plumes ???
>>
>> Merci, au revoir et à bientôt.
>> --
>> ng75 arobase noos.fr
>> ------------------------------------------------------------
>> LE TROLL, éleveur de trolls depuis César, qui disait :
>> Avec une hache, celui qui tient le manche a toujours raison !
>>
>>
>>
>
>




Avatar
LE TROLL
Ah, merci, ça marche, sauf que le caractère que j'imprime n'attrape
pas le graissé, c'est un carré ascii 0129 "
Avatar
Christian HUBERT-HUGOUD- Xtrem7
Peut-être en sélectionnant une autre police (mais dans ce cas il faut
vérifier qu'elle est installée ; c'est un peu lourd).

Ou alors en dessinant le rectangle sur l'objet printer.

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:Oh14N$
Ah, merci, ça marche, sauf que le caractère que j'imprime


n'attrape
pas le graissé, c'est un carré ascii 0129 "


Avatar
Driss HANIB
ou alors utiliser la fonction rectangle de printer
printer.line qui te permettra de creer des rectangles noirs en les
positionnant bien sur avant

Driss

"Christian HUBERT-HUGOUD- Xtrem7" a écrit dans le
message de news:cqrq8i$j65$

Peut-être en sélectionnant une autre police (mais dans ce cas il faut
vérifier qu'elle est installée ; c'est un peu lourd).

Ou alors en dessinant le rectangle sur l'objet printer.

Christian Hubert-Hugoud

"LE TROLL" <le a écrit dans le message de
news:Oh14N$
> Ah, merci, ça marche, sauf que le caractère que j'imprime
n'attrape
> pas le graissé, c'est un carré ascii 0129 "