Visual Basic utskrift inkluderer en " skriver" -funksjonen til å skrive ut en fil, men gir ingen kontroll over formatering , spesielt å vikle lange linjer . Ekstra kode kan manipulere teksten , testing for linjelengde og lokalisering av områder for å finne et bra sted å bryte linjene . Men det er en enklere måte involverer bare noen få linjer med kode og en rik TextBox kontroll . Den eneste ulempen er at det ikke vil gi marger . Dette er mulig med en API (Application Programming Interface) samtalen, men API kode er lang, kjører over 122 linjer med kode og 700 + ord med forklaring. Dette overgår omfanget av denne artikkelen. Instruksjoner
en

Opprett en ny Standard EXE -prosjekt i Visual Basic ved å klikke på "File " og deretter " New Project" og velge Standard EXE mal. Legg en etikett kontrollen til skjemaet som åpnes ved å klikke på Label ikonet i verktøykassa viser til venstre. Dette er den store bokstaven " A" i caps. Se i Properties listen til høyre for Label1 egenskaper og endre Bildetekst å lese "Navn på filen som skal skrives ? ", Men ikke bruke anførselstegn .
2

Legg en TextBox kontroll til skjemaet på samme måte , ved hjelp av Verktøykasse ikon av en liten firkant med små bokstaver " ab " i seg. Plasser tekstboksen til høyre for merket. Lokaliser " Text" eiendom i eiendommer liste for denne kontrollen , og dobbeltklikk på Text-egenskapen til å markere standard navn . Trykk på " Delete" på tastaturet for å fjerne det.
3

Legg to kommando- knapper fra verktøykassa , identifisert av et lite rektangel . Endre Bildetekst av de første til å "Skriv ut" og Caption av andre til å "Avbryt". Legge til en kontroll til Toolbox ved å klikke på " Project" i toppmenyen og deretter " Components . Finn " Microsoft Rich Tekstboks' kontroll 6.0 ( SP6 ) " i listen og klikk på boksen for å velge den. Klikk på "Apply " og " OK ". Legg den nye kontrollen , som skal være i bunnen av kontrollen listen. Når du flytter markøren over ikonet vil vise navnet .
4

Klikk på Microsoft Rich Tekstboks' kontroll 6.0 ( SP6 ) på skjemaet . I Egenskaper- liste for denne kontrollen , slette " Text" navn , endre " Multiline " eiendom fra " False " til " Sant nok, gjør det" Synlig "eiendom " False "og sett " Skrift "eiendom til hva skrifttype og størrelse du ønsker .
5

Dobbeltklikk på Trykkontrollpult å åpne kode-vinduet . Skriv inn denne koden nøyaktig slik det vises nedenfor :

Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Som StringstrFileToPrint = Text1.TextOpen strFileToPrint For Input As # 1Bruk Inntil EOF ( 1 ) Linje Input # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub

Under denne typen følgende kode :

Private Sub Command2_Click ( ) SluttSlutt Sub

6

Trykk " F5 " for å kjøre programmet og skrive ut en fil . Hvis dokumentet ikke skrives ut , må du sjekke linjer med kode ovenfor for å være sikker på at du skrev dem riktig. Hvis en advarsel vises til effekten filen ble ikke funnet, så dobbeltsjekk plasseringen og filnavnet .