Visual Basic utskrift innehåller en " skrivare " -funktion för att skriva ut en fil , men ger ingen kontroll över formateringen , särskilt att linda långa linjer . Ytterligare koden kan manipulera text , testning för lina och lokalisering av utrymmen för att hitta ett bra ställe att bryta raderna . Men det finns ett enklare sätt involverar bara några rader kod och en rik TextBox kontroll . Den enda nackdelen är att det inte kommer att tillhandahålla marginalinställningar. Detta är möjligt med ett API ( Application Programming Interface ) samtal , men API -kod är lång , kör över 122 rader kod och 700 ord + med förklaring . Detta utöver tillämpningsområdet för denna artikel . Instruktioner
1
Skapa ett nytt Standard-EXE- projekt i Visual Basic genom att klicka på " File" och sedan " Nytt projekt " och välja Standard EXE mallen . Lägg en Label-kontrollen till formuläret som öppnas genom att klicka på Label ikonen i verktygslådan visar på vänster . Detta är den stora bokstaven " A " i caps . Titta i Egenskaper listan till höger för Label1 fastigheter och ändra bildtexten att läsa " Namn på fil som ska skrivas ? " Men inkluderar inte citattecknen.
2
Lägg en textrutekontroll till formuläret på samma sätt , med hjälp av Verktygslåda för ett litet torg med små bokstäver " ab " i det . Placera textrutan till höger om etiketten. Leta reda på " Text " egendom i fastigheter lista för denna kontroll och dubbelklicka på Text egenskapen att markera standardnamnet . Tryck på " Delete " på tangentbordet för att ta bort den .
3
Lägg två kommandoknappar från verktygslådan , som identifierats av en liten rektangel . Ändra Caption av de första att " Print " och bildtexten i den andra till " Avbryt " . Lägg en kontroll i verktygslådan genom att klicka på " Projekt " i menyn längst upp och sedan " Components . Hitta " Microsoft Rich Textruta Control 6.0 ( SP6 ) " i listan och klicka på kryssrutan för att välja det . Klicka på " Apply " och " OK . " Lägg den nya kontrollen , som bör vara i botten av kontrollen listan . Flytta markören över ikonen visas namnet .
4
Klicka på Microsoft Rich Textruta Control 6.0 ( SP6 ) på blanketten . I Egenskaper för denna kontroll , ta bort " Text " namn , ändra " Multiline " egendom från " False " till "true , gör " Synlig " property " False " och ställ in " Font " egendom oavsett typsnitt och storlek du önskar .
5
Dubbelklicka på Print för att öppna fönstret Kod . Ange koden exakt så som den visas nedan :
Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Som StringstrFileToPrint = Text1.TextOpen strFileToPrint För Input Som # 1Do Until EOF ( 1 ) Linjeinmatning # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub
Nedanför denna typ följande kod :
Private Sub Command2_Click ( ) EndEnd Sub
6
Tryck " F5 " för att köra programmet och skriva ut en fil . Om dokumentet inte skrivs ut , kontrollera kodrader ovan för att vara säker på att du angett dem korrekt . Om en varning visas med innebörden att filen hittades inte , så dubbelkolla plats och filnamn .
