Trykning i Visual Basic kan være lidt besværligt at sætte op, men når gjort, forviklingerne er usynlige for brugeren. Et Visual Basic kontrol kaldet Common Dialog Kontrol inkorporerer en metode til udskrivning i Visual Basic. Brug koden tilsluttet til denne kontrol , vil åbne en dialogboks , hvor brugeren kan vælge specifikke egenskaber til udskrivning såsom hvilke sider, der skal udskrives , hvor mange kopier og specifikke egenskaber af involverede printer. Instruktioner
1
Opret dialogboksen Printer ved at åbne Visual Basic og vælge " Standard EXE " fra listen over skabeloner, der udbydes til et nyt projekt. Gem det nye projekt skabt med et simpelt navn som " Printer" ved at klikke på "File " og " Save Project som." Enter "Printer" i dialogboksen, der åbnes. Som standard lægger Visual Basic en udvidelse af " vbp . " Gem standard " Form1 " skabt på samme måde , klikke på "Gem formular som" og give den form navnet "Printer" som godt.
2
Tilsæt Common Dialog Kontrol til projektet. Klik på " Project" i menuen øverst på skærmen. Fra drop down listen , skal du vælge " Add -komponenter. " Rul ned en meget lang liste , der vises , indtil du ser "Microsoft Common Dialog Control- 6.0 ( SP6 ) . Vælg denne med musen og derefter klikke på "OK ".
3
Dobbeltklik på den fælles Dialog kontrol, hvilket nu bør vise i bunden af kontrollen vises i panelet til venstre på skærmen . Et ikon ligne to nuller med en bar over dem og to prikker en under den anden betegner denne kontrol. Når du kører musen over dette, vil ordene " CommonDialog " vises.
4
Dobbeltklik på " CommandButton " ikonet i venstre panel , repræsenteret ved en lille rektangel . Dette lægger en kommando på formularen. Klik på knappen nu mærket " Command1 . " I "Egenskaber" liste for denne kontrol på højre , ændre navnet til " cmdPrint " . Rul ned, indtil du ser Ændre navnet på denne til " Print "
5
Type " Caption ". : . Dim FileName , TextLine , BeginPage , EndPage , NumCopies , Orientering, iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ("Hvad filen skal jeg udskrive ?") Open FileName For Input Som # 1Do While Not EOF (1) Linie Input # 1, TextLinePrinter.Print TextLineLoopClose # 1End
6
Test koden ved at trykke på " F5 " og derefter på " Udskriv" på formularen. Indtast filen placeringen af en tekstfil på din computer. Dokumentet skal udskrives. Hvis det ikke sker , gennemgå hver linje kode ovenfor for at sikre, at det er korrekt.
