Comment imprimer en Visual Basic 6

Créer la boîte de dialogue de l'imprimante en ouvrant Visual Basic et en sélectionnant "EXE standard" à partir de la liste des modèles proposés pour un nouveau projet. Enregistrez le nouveau projet créé avec un nom simple comme "Imprimeur" en cliquant sur "Fichier" et "Enregistrer le projet sous." Entrer "Imprimeur" dans la boîte de dialogue qui apparaît. Par défaut, Visual Basic attache une extension de "vbp." Enregistrer par défaut "Form1" créé de la même manière, en cliquant sur "Enregistrer le formulaire en tant que" et en donnant la forme du nom "Imprimeur" aussi bien.

Ajoutez le contrôle Common Dialog pour le projet. Cliquer sur "Projet" dans le menu en haut de votre écran. De la liste déroulante, sélectionnez "Ajouter des composants." Faites une liste très longue qui apparaît jusqu'à ce que vous voyez "Microsoft Common Dialog Control 6.0 (de SP6). Sélectionnez ce paramètre avec la souris puis cliquez sur "D'ACCORD."

Double-cliquez sur le contrôle Common Dialog, qui devrait maintenant être à l'affiche au bas de la commande représenté dans le panneau gauche de l'écran. Une icône ressemblant à deux zéros avec une barre sur eux et deux points l'un sous l'autre représente ce contrôle. Lorsque vous exécutez votre souris sur celui-ci, les mots "CommonDialog" apparaîtra.

Double cliquez sur le "CommandButton" icône dans le panneau de gauche, représentée par un petit rectangle. Cela place une commande sur le formulaire. Cliquez sur le bouton marqué maintenant "Command1." Dans le "Propriétés" la liste pour ce contrôle sur la droite, changer le nom de "cmdPrint". Faites défiler la liste jusqu'à ce que vous voyez "Légende." Changer le nom de ce à "Imprimer".

Type:
Dim FileName, TextLine, BeginPage, EndPage, NumCopies, Orientation, i
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
Filename = InputBox ("Quel fichier dois-je imprimer?")
Ouvrir nom de fichier pour entrée Comme # 1
Do While Non EOF (1)
Entrée de ligne n ° 1, TextLine
Printer.Print TextLine
Boucle
Close # 1
Fin

Testez le code en appuyant "F5" puis cliquez sur "Imprimer" sur le formulaire. Entrez l'emplacement du fichier d'un fichier texte sur votre ordinateur. Le document doit être imprimé. Si elle n'a pas, examiner chaque ligne de code ci-dessus pour vous assurer qu'il est exact.