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 URGENT : Imprimer sur le port parallèle.

URGENT : Imprimer sur le port parallèle.

6 réponses
Avatar
lawraC
Bonjour,

je n'arrive pas =E0 trouver de source bien expliqu=E9e pour=20
pouvoir imprimer un fichier txt sur l'imprimante lpt1.

Toute aide sera bienvenue


LawraC
Signaler un problème avec ce contenu

6 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
François Picalausa
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows, tu peux faire ceci:
Dim objPrinter As Printer, oldDefaultPrinter As Printer
For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit l'imprimante par défaut
Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width - Printer.TextWidth("Hello
World!")) / 2
Printer.CurrentY = (Printer.Height - Printer.TextHeight("Hello
World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le message de
news:080901c39dfa$a86015c0$
Bonjour,

je n'arrive pas à trouver de source bien expliquée pour
pouvoir imprimer un fichier txt sur l'imprimante lpt1.

Toute aide sera bienvenue


LawraC


Avatar
lawraC
Ca à l'air vraiment génial, mais est ce qu'à la place
d'un texte, je peux envoyer le contenu d'un fichier txt.
Car en fait, il s'agit d'une imprimante pour étiquettes,
dont le modèle (font, etc...) est déjà pré-configuré. Je
n'ai plus qu'un fichier txt à lui envoyer en impression,
l'imprimante se charge du reste.

LawraC

-----Message d'origine-----
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows, tu


peux faire ceci:
Dim objPrinter As Printer, oldDefaultPrinter As


Printer
For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit


l'imprimante par défaut
Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width -


Printer.TextWidth("Hello
World!")) / 2
Printer.CurrentY = (Printer.Height -


Printer.TextHeight("Hello
World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le


message de
news:080901c39dfa$a86015c0$
Bonjour,

je n'arrive pas à trouver de source bien expliquée pour
pouvoir imprimer un fichier txt sur l'imprimante lpt1.

Toute aide sera bienvenue


LawraC




.



Avatar
François Picalausa
Bonjour/soir,

Dans ce cas, il te suffit de lire le fichier de texte dans une chaine et
ensuite d'envoyer la chaine...
Dim FFN As Integer, strFileContent As String
FFN = FreeFile
Open "c:monfichiertexte.txt" For Binary As FFN
strFileContent = String$(LOF(FFN), vbNullChar)
Get FFN,, strFileContent
Close FFN

Printer.Print strFileContent

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le message de
news:081001c39e02$e82f6810$
Ca à l'air vraiment génial, mais est ce qu'à la place
d'un texte, je peux envoyer le contenu d'un fichier txt.
Car en fait, il s'agit d'une imprimante pour étiquettes,
dont le modèle (font, etc...) est déjà pré-configuré. Je
n'ai plus qu'un fichier txt à lui envoyer en impression,
l'imprimante se charge du reste.

LawraC

-----Message d'origine-----
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows, tu peux faire
ceci: Dim objPrinter As Printer, oldDefaultPrinter As Printer
For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit l'imprimante par
défaut Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width -
Printer.TextWidth("Hello World!")) / 2
Printer.CurrentY = (Printer.Height -
Printer.TextHeight("Hello World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le message de
news:080901c39dfa$a86015c0$
Bonjour,

je n'arrive pas à trouver de source bien expliquée pour
pouvoir imprimer un fichier txt sur l'imprimante lpt1.

Toute aide sera bienvenue


LawraC




.




Avatar
Cégé
"lawraC" a écrit dans le message news:
081001c39e02$e82f6810$
Ca à l'air vraiment génial, mais est ce qu'à la place
d'un texte, je peux envoyer le contenu d'un fichier txt.
Car en fait, il s'agit d'une imprimante pour étiquettes,
dont le modèle (font, etc...) est déjà pré-configuré. Je
n'ai plus qu'un fichier txt à lui envoyer en impression,
l'imprimante se charge du reste.

LawraC

-----Message d'origine-----
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows, tu


peux faire ceci:
Dim objPrinter As Printer, oldDefaultPrinter As


Printer
For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit


l'imprimante par défaut
Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width -


Printer.TextWidth("Hello
World!")) / 2
Printer.CurrentY = (Printer.Height -


Printer.TextHeight("Hello
World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le


message de
news:080901c39dfa$a86015c0$
Bonjour,

je n'arrive pas à trouver de source bien expliquée pour
pouvoir imprimer un fichier txt sur l'imprimante lpt1.

Toute aide sera bienvenue


LawraC




.





Je crains que tu souffre avec des étiquettes (taille police, etc.)
Il me semble que la meilleure méthode est de dessiner les étiquettes dans un
contrôle graphique caché et d'envoyer celui - ci à une imprimante. Avantage,
ce contrôle graphique peut être visible pendant la mise au point
Il existe des utilitaires étiquettes (me souviens de Labeler, peut-être
mort...) qui exposent des OCX utilisables en VB.

Voir également si la machine cible de ton programme possède Word. Ses
fonctions peuvent être appelées et il "sait" faire des étiquettes (avec
éventuellement un lien auto avec un db).


-- Christian
Avatar
lawraC
François :

Merci!!! Je vais essayer ça dès aujourd'hui.
J'aurais juste une dernière question : sur le poste qui
sera chargé de l'impression, l'imprimante par déaut sra
celle du port série. Comment, aprés la redéfinition du
port par défaut sur le lpt1, je peux remettre les choses
en place ? Est-ce que cela se fait tout seul ??

Cégé :

J'ai plus de 3000 étiquettes/jour à imprimer, donc rien
ne vaut une imprimante de production à laquelle tu te
contentes d'envoyer un fichier txt, ça évite bien des
longueurs de traitement.
Merci quand-même.




-----Message d'origine-----
Bonjour/soir,

Dans ce cas, il te suffit de lire le fichier de texte


dans une chaine et
ensuite d'envoyer la chaine...
Dim FFN As Integer, strFileContent As String
FFN = FreeFile
Open "c:monfichiertexte.txt" For Binary As FFN
strFileContent = String$(LOF(FFN), vbNullChar)
Get FFN,, strFileContent
Close FFN

Printer.Print strFileContent

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le


message de
news:081001c39e02$e82f6810$
Ca à l'air vraiment génial, mais est ce qu'à la place
d'un texte, je peux envoyer le contenu d'un fichier




txt.
Car en fait, il s'agit d'une imprimante pour




étiquettes,
dont le modèle (font, etc...) est déjà pré-configuré.




Je
n'ai plus qu'un fichier txt à lui envoyer en




impression,
l'imprimante se charge du reste.

LawraC

-----Message d'origine-----
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows,






tu peux faire
ceci: Dim objPrinter As Printer, oldDefaultPrinter






As Printer
For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit






l'imprimante par
défaut Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width -
Printer.TextWidth("Hello World!")) / 2
Printer.CurrentY = (Printer.Height -
Printer.TextHeight("Hello World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le






message de
news:080901c39dfa$a86015c0$
Bonjour,

je n'arrive pas à trouver de source bien expliquée








pour
pouvoir imprimer un fichier txt sur l'imprimante








lpt1.

Toute aide sera bienvenue


LawraC




.






.



Avatar
Gilles FEVRE
Bonjour,

C'est quoi ton imprimante ?

Je suis imprimeur d'étiquette et je n'envoie jamais de fichier txt à
une imprimante à part si ce n'est de l'impact

CDt
Gilles

lawraC a écrit:
François :

Merci!!! Je vais essayer ça dès aujourd'hui.
J'aurais juste une dernière question : sur le poste qui
sera chargé de l'impression, l'imprimante par déaut sra
celle du port série. Comment, aprés la redéfinition du
port par défaut sur le lpt1, je peux remettre les choses
en place ? Est-ce que cela se fait tout seul ??

Cégé :

J'ai plus de 3000 étiquettes/jour à imprimer, donc rien
ne vaut une imprimante de production à laquelle tu te
contentes d'envoyer un fichier txt, ça évite bien des
longueurs de traitement.
Merci quand-même.





-----Message d'origine-----
Bonjour/soir,

Dans ce cas, il te suffit de lire le fichier de texte



dans une chaine et

ensuite d'envoyer la chaine...
Dim FFN As Integer, strFileContent As String
FFN = FreeFile
Open "c:monfichiertexte.txt" For Binary As FFN
strFileContent = String$(LOF(FFN), vbNullChar)
Get FFN,, strFileContent
Close FFN

Printer.Print strFileContent

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le



message de

news:081001c39e02$e82f6810$

Ca à l'air vraiment génial, mais est ce qu'à la place
d'un texte, je peux envoyer le contenu d'un fichier





txt.

Car en fait, il s'agit d'une imprimante pour





étiquettes,

dont le modèle (font, etc...) est déjà pré-configuré.





Je

n'ai plus qu'un fichier txt à lui envoyer en





impression,

l'imprimante se charge du reste.

LawraC


-----Message d'origine-----
Bonjour/soir,

Pour peu que l'imprimante soit reconnue par Windows,







tu peux faire

ceci: Dim objPrinter As Printer, oldDefaultPrinter







As Printer

For Each objPrinter In Printers
If objPrinter.Port = "LPT1:" Then
Set Printer = objPrinter 'Redéfinit







l'imprimante par

défaut Printer.Font.Name = "Comic Sans MS"
Printer.Font.Size = 24
Printer.CurrentX = (Printer.Width -
Printer.TextWidth("Hello World!")) / 2
Printer.CurrentY = (Printer.Height -
Printer.TextHeight("Hello World!")) / 2
Printer.Print "Hello World!"
Printer.EndDoc
End If
Next objPrinter

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lawraC" a écrit dans le







message de

news:080901c39dfa$a86015c0$

Bonjour,

je n'arrive pas à trouver de source bien expliquée









pour

pouvoir imprimer un fichier txt sur l'imprimante









lpt1.

Toute aide sera bienvenue


LawraC




.






.