Visual Basic udskrivning indeholder en " Printer" -funktionen til at udskrive en fil , men giver ingen kontrol over formatering , især for at ombryde lange linjer. Ekstra kode kan manipulere teksten teste for linjelængde og placering af rum for at finde et godt sted at bryde linjerne. Men der er en nemmere måde involverer kun et par linjer kode og et rigt TextBox kontrol . Den eneste ulempe er, det vil ikke give margenindstillinger. Dette er muligt med et API ( Application Programming Interface) opkald, men API -koden er langvarig, kører over 122 linjer kode og 700 + ord med forklaring. Dette overskrider anvendelsesområdet for denne artikel. Instruktioner
1
Opret et nyt standard-EXE -projekt i Visual Basic ved at klikke på "File " og derefter " Nyt projekt ", og vælge den standard-EXE- skabelon. Tilføj en Label kontrol til formular, der åbnes ved at klikke på Label ikonet i Værktøjskassen viser til venstre. Dette er den store bogstav "A" i hætter. Kig i Properties på listen til højre for Label1 ejendomme og ændre Caption at læse "Navn på fil der skal udskrives ? ", Men omfatter ikke anførselstegn.
2
Tilføj TextBox kontrollen til formularen på samme måde , ved hjælp af ikonet Værktøjskasse i en lille firkant med små bogstaver "AB" i det. Placer tekstboksen til højre på etiketten. Find " Text" ejendom i ejendomme liste for denne kontrol og dobbeltklik på egenskaben Tekst til at fremhæve standardnavnet. Tryk på " Delete " på tastaturet for at fjerne det.
3
Tilføj to kommandoknapper fra værktøjskassen, identificeret ved et lille rektangel . Skift Caption af de første til "Print" og Caption af den anden til " Annuller". Tilføj en kontrol til værktøjskassen ved at klikke på " Project" i topmenuen og derefter " Komponenter . Find " Microsoft Rich Textbox Kontrol 6.0 ( SP6 )" på listen, og klik på afkrydsningsfeltet for at vælge det. Klik på " Anvend" og "OK". Tilsæt nye kontrol , som skal være i bunden af kontrol- listen. Flytning af markøren over ikonet vil vise navnet .
4
Klik på Microsoft Rich Textbox Kontrol 6.0 ( SP6 ) på formularen. I Properties liste for denne kontrol , skal du slette "Tekst" navn, ændre " Multiline " ejendom fra " False " til " Sandt nok, gøre" Synlig "ejendom " False ", og sæt" Font "ejendom til uanset skrifttype og størrelse du ønsker det.
5.
Dobbeltklik på Print for at åbne vinduet Kode . Indtast denne kode nøjagtigt, som det vises nedenfor : Hej
Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Som StringstrFileToPrint = Text1.TextOpen strFileToPrint For Input Som # 1Do Indtil EOF (1) Linie Input # 1, strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub
Under denne type følgende kode : Hej
Private Sub Command2_Click () EndEnd Sub
< br > 6
Tryk på " F5 " for at køre programmet, og udskrive en fil . Hvis dokumentet ikke udskrives , skal du kontrollere kodelinjer ovenfor for at være sikker på du har indtastet dem korrekt. Hvis der vises en advarsel om, at filen ikke blev fundet, så dobbelt tjek placering og filnavnet.