|
impression Visual Basic inclut une fonction «Imprimante» pour imprimer un fichier, mais ne donne pas de contrôle sur la mise en forme , en particulier pour envelopper les lignes longues . Code additionnel peut manipuler le texte , le test de longueur de ligne et l'emplacement des espaces de trouver un bon endroit pour casser les lignes . Cependant, il existe un moyen plus simple impliquant seulement quelques lignes de code et un contrôle de zone de texte enrichi . Le seul inconvénient est qu'il ne fournira pas les paramètres de marge . Cela est possible avec un appel d'API (interface de programmation d'application ) , mais le code API est longue , la course plus de 122 lignes de code et 700 + mots avec l'explication . Cela dépasse le cadre de cet article . Instructions
1 Créez un nouveau projet EXE standard dans Visual Basic en cliquant sur " Fichier", puis "Nouveau projet " et en choisissant le modèle standard EXE . Ajoutez un contrôle Label au formulaire qui s'ouvre en cliquant sur l'icône de l'étiquette dans la boîte à outils montrant sur la gauche. C'est la grande lettre "A" dans les bouchons . Regardez dans la liste des propriétés à droite pour les Label1 propriétés et modifier la légende de lire "Nom du fichier à imprimer ? " Mais ne comprend pas les guillemets .
2 Ajoutez un contrôle TextBox la forme de la même manière , en utilisant l'icône Boîte à outils d'une petite place avec des lettres minuscules «AB» en elle. Positionnez la zone de texte à droite de l'étiquette. Localisez le " texte " propriété dans la liste des propriétés de ce contrôle et double-cliquez sur la propriété Text pour sélectionner le nom par défaut. Appuyez sur la touche "Suppr" de votre clavier pour le supprimer.
3 Ajoutez deux boutons de commande de la boîte à outils , identifié par un petit rectangle. Changer la Légende de la première à «Imprimer» et la légende de la seconde à "Annuler". Ajoutez un contrôle à la boîte à outils en cliquant sur " Projet" dans le menu du haut , puis " Composants . Trouvez le " Microsoft Rich Textbox Control 6.0 (SP6 ) " dans la liste et cliquez sur la case à cocher pour le sélectionner. Cliquez sur «Appliquer » et « OK ». Ajouter le nouveau contrôle , qui devrait être au bas de la liste de contrôle . Déplacer le curseur sur l'icône affiche le nom .
4 Cliquez sur la zone de texte enrichi Microsoft Control 6.0 (SP6 ) sur le formulaire. Dans la liste des propriétés de ce contrôle , supprimez le nom " du texte " , modifiez la propriété " multiligne " à partir de "False" à "true faire le " " propriété " Visible Faux " et définir le « bien de Police " à tout ce que la police et la taille vous le souhaitez.
5 Double-cliquez sur la commande Imprimer pour ouvrir la fenêtre de code. Entrez le code exactement comme il apparaît ci-dessous:
Private Sub Command1_Click () strFileToPrint Dim, strFullFile , strReadLine Comme StringstrFileToPrint = Text1.TextOpen strFileToPrint Pour l'entrée Comme # 1Do Jusqu'à EOF (1) Entrée de ligne n ° 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sous
dessous de cette Tapez le code suivant :
Private Sub Command2_Click () EndEnd Sous
6 Appuyez sur " F5" pour exécuter le programme et imprimer un fichier . Si le document ne s'imprime pas, vérifiez les lignes de code ci-dessus pour être sûr que vous avez entré correctement. Si un avertissement apparaît à l'effet que le fichier est introuvable , puis revérifier l'emplacement et le nom du fichier .
|
