Discussion :

[olosimam]

Quelqun peut me guider pour imprimer en visualbasic 6 au lieu de diriger dans un port parallele LPT1 on imprime vers le port USB (commande open)
Merci

[OhMonBato]

Peu importe l'interface de ton imprimante, c'est Windows qui gerera ça.
Pour imprimer sous VB6, va voir là : http://vb.developpez.com/cours/?page=Impression#imprime

[olosimam]

Peu importe l'interface de ton imprimante, c'est Windows qui gerera ça.
Pour imprimer sous VB6, va voir là : http://vb.developpez.com/cours/?page=Impression#imprime

Mon probleme c'est d'imprimer dans un format texte mais pas graphique.
J'utilise l'instruction open " " for input as .... pour diriger l'impression texte vers une imprimante matricielle. Vb6 n'accepte pas de remplacer le port LPT1 par le port usb pour cette instruction.
Merci

[OhMonBato]

Désolé mais je n'ai rien compris.
Peux tu expliquer un peu plus et/ou nous joindre une partie de ton code ?

[ucfoutu]

Mon probleme c'est d'imprimer dans un format texte mais pas graphique.
J'utilise l'instruction open " " for input as .... pour diriger l'impression texte vers une imprimante matricielle. Vb6 n'accepte pas de remplacer le port LPT1 par le port usb pour cette instruction.
Merci

Bonjour,

ton imprimante sur LPT1 doit, si tu veux y écrire directement, être traitée comme un fichier, à ouvrir en effet à l'aide de Open... For...

Mais là où tu te trompes, c'est dans le mode (Input) d'ouverture !
C'est For Output, qu'il convient d'utiliser ...

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Open "LPT1" For Output As #1
  Print #1, "Bonjour"
  Print #1, "ça va ?"
Close #1

Pour mettre maintenant tes textes en forme, celà va dépendre de ton imprimante, à laquelle du devras passer les codes d'échappement (pour les bolds, ejection de page, etc...), codes qui varient d'une imprimante à l'autre et que tu trouveras dans le manuel d'utilisation de ton imprimante.

(Exemple de code d'échappement pour une imprimante matricielle IBM - code pour le soulignment : pour le démarrer : 27,45,1|27,45,49 et pour l'arrêter :27,45,0|27,45,48)


Voilà.

[Delbeke]

Il serait interessant "galement de regarder dans le gestionnaire d'imprimante de windows sur quel port est connecté ton imprimante, tu pourais éventuellement avoir autre chose que LPT1: . Au quel cas tu devras utiliser ce nom de port je pense.

[olosimam]

Il serait interessant "galement de regarder dans le gestionnaire d'imprimante de windows sur quel port est connecté ton imprimante, tu pourais éventuellement avoir autre chose que LPT1: . Au quel cas tu devras utiliser ce nom de port je pense.

Voila mon istruction quand j'imprime vers LPT1:
Open "LPT1:" For Output As #1
Actuellement mon imprimante n'est plus connectée avec un port parallele mais avec un port usb USB001
Si je change LPT1: par USB001, visual basic 6 ne reconnait pas.
Merci

[SfJ5Rpw8]

Une solution est d'activer le partage de ton imprimante, récupérer son nom de partage puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
Open "\\PC1\HPPhotos" For Output As #1
  Print #1, "C'est mieux comme cela"
  Print #1, "n'est-ce pas !"
  Print #1, Chr(12)
Close #1
End Sub

en remplaçant : \\PC1\HPPhotos par ton nom de partage .

[olosimam]

Merci pour le tuyau. Ca marche avec le partage.