Utskrift i Visual Basic kan være litt tungvint å sette opp, men når gjort , vanskelighetene er usynlige for brukeren. En Visual Basic kontroll kalt Common Dialog Kontroll inneholder en metode for utskrift i Visual Basic. Ved hjelp av koden koblet til denne kontrollen vil åpne en dialogboks der brukeren kan velge spesifikke attributter for utskrift, for eksempel hvilke sider som skal skrives ut, hvor mange kopier og spesifikke egenskaper for skriveren involvert. Instruksjoner
en

Opprett skriver i dialogboksen ved å åpne Visual Basic og velge " Standard EXE " fra listen over maler som tilbys for et nytt prosjekt . Lagre den nye prosjekt som er opprettet med et enkelt navn som " Skriver" ved å klikke på " File" og " Lagre prosjekt som . " Enter "Skriver" i dialogboksen som åpnes. Som standard legger Visual Basic en forlengelse av " VBP . " Save the default " Form1 " skapt på samme måte , klikke på " Lagre skjema som" og gi form navnet "Skriver" også.
2

Legg Common Dialog kontroll til prosjektet . Klikk på " Project" i menyen øverst på skjermen. Fra nedtrekksmenyen velger du "Add Components . " Rull ned en veldig lang liste som vises til du ser "Microsoft Common Dialog Kontroll 6.0 ( SP6 ) . Velg dette med musen , og klikk deretter på "OK".
3

Dobbeltklikk på Common Dialog kontroll, som skal nå bli utført på bunnen av kontrollen vises i venstre panel på skjermen. Et ikon som ser ut som to nuller med en strek over dem, og to prikker en under den andre representerer denne kontrollen . Når du kjører musen over dette , vil ordene " CommonDialog " vises .
4

Dobbeltklikk på " CommandButton "-ikonet i venstre panel , representert ved et lite rektangel . Dette setter en kommando på skjemaet. Klikk på knappen nå merket " Command1 . " I " Properties "-liste for denne kontrollen til høyre , endre navnet til " cmdPrint " . Bla nedover til du ser Endre navnet på denne til " Skriv ut "
5

Type " Bildetekst ". : . Dim filnavn, TextLine , BeginPage , EndPage , NumCopies , Orientering, iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( " Hva fil skal jeg skrive ? ") åpne filnavn For Input As # 1Bruk Mens Not EOF ( 1 ) Linje Input # 1 , TextLinePrinter.Print TextLineLoopClose # 1End
6

Test koden ved å trykke " F5 " og deretter "Skriv ut" på skjemaet . Skriv inn filen plasseringen av en tekstfil på datamaskinen. Dokumentet skal skrives ut . Hvis den ikke gjør det , gjennom hver linje av koden ovenfor for å sikre at det er korrekt.