Utskrift i Visual Basic kan vara lite besvärligt att ställa upp , men en gång gjort , krångligheter är osynliga för användaren . En Visual Basic kontroll kallas Common Dialog Kontroll innehåller en metod för utskrift i Visual Basic . Använda kod kopplad till denna kontroll kommer att öppna en dialogruta där användaren kan välja specifika attribut för tryckning såsom vilka sidor som ska skrivas ut , hur många kopior och specifika egenskaper hos den inblandade skrivaren . Instruktioner
1
Skapa rutan Printer dialogrutan genom att öppna Visual Basic och välja " Standard EXE " från listan över mallar som erbjuds för ett nytt projekt . Spara det nya projektet skapas med ett enkelt namn som " skrivare " genom att klicka på " File " och " Spara projekt som . " Enter " Skrivare " i dialogrutan som öppnas . Som standard fäster Visual Basic en förlängning av " vbp . " Rädda standard " Form1 " skapas på samma sätt , klicka på " Spara formulär som " och ge formuläret namnet " Skrivare " liksom.
2
Lägg den gemensamma Dialog Kontroll till projektet . Klicka på " Projekt " i menyn längst upp på skärmen . Från rullgardinsmenyn väljer du " Lägg till komponenter . " Rulla ned en mycket lång lista som visas tills du ser " Microsoft Common Dialog Control 6.0 ( SP6 ) . Markera det här med musen och klicka sedan på " OK . " Addera 3
Dubbelklicka på Common Dialog kontrollen , som nu ska visas längst ner på kontrollen visas i den vänstra panelen på skärmen. En ikon som ser ut som två nollor med en bar över dem och två prickar under varandra representerar denna kontroll . När du kör musen över detta , kommer orden " CommonDialog " visas .
4
Dubbelklicka på " CommandButton " -ikonen i den vänstra panelen , som representeras av en liten rektangel . Detta sätter en kommando på blanketten. Klicka på knappen nu heter " Command1 . " I " Egenskaper " lista för denna kontroll till höger , ändra namnet till " cmdPrint " . Bläddra ner tills du ser Ändra namnet på denna till " Skriv ut "
5
Type " Caption ". : . Dim Filnamn, TextLine , BeginPage , EndPage , NumCopies , Orientering , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( " Vilken fil ska jag skriva ? " ) Open filnamn för Input Som # 1Do Medan Not EOF ( 1 ) Linjeinmatning # 1 , TextLinePrinter.Print TextLineLoopClose # 1End
6
Testa koden genom att trycka " F5 " och klicka sedan på "Skriv ut " i formuläret . Ange filens plats i en textfil på din dator . Dokumentet ska skrivas ut . Om den inte gör det , granska varje kodrad ovan för att säkerställa att den är korrekt .
