Afdrukken in Visual Basic kan een beetje lastig op te zetten , maar een keer gedaan , de fijne kneepjes zijn onzichtbaar voor de gebruiker . Een Visual Basic -controle aangeduid als de Common Dialog control omvat een methode voor het afdrukken in Visual Basic . Gebruik van de code die op deze controle wordt een dialoogvenster te openen waarin de gebruiker kan kiezen voor specifieke attributen voor het afdrukken , zoals welke pagina's u wilt afdrukken , het aantal kopieën en de specifieke eigenschappen van de printer betrokken . Instructies 1 Maak het dialoogvenster Printer door het openen van Visual Basic en het selecteren van " Standard EXE " uit de lijst met sjablonen voor een nieuw project aangeboden . Sla het nieuwe project gemaakt met een simpele naam als " Printer " door te klikken op " File " en " Project opslaan als . " Enter " Printer " in het dialoogvenster dat wordt geopend . Standaard , Visual Basic hecht een uitbreiding van " vbp . " Sla de standaard " Form1 " gecreëerd op dezelfde wijze te klikken op ' Formulier opslaan als " en de naam " Printer " het geven van de vorm ook. 2 Voeg de Common Dialog control op het project . Klik op " Project " in het menu aan de bovenkant van je scherm . Uit het drop down lijst en selecteer "Add Components . " Scroll naar beneden een zeer lange lijst die verschijnt totdat u " Microsoft Common Dialog Controle 6.0 ( SP6 ) . Selecteer deze met de muis en klik op ' OK '. Dubbelklik 3 op de Common Dialog regeling , die nu moeten worden weergegeven aan de onderkant van het weergegeven in het linkerpaneel op controle het scherm . Een pictogram op zoek als twee nullen met een bar over hen en twee puntjes onder elkaar vertegenwoordigt deze controle. Wanneer u uw muis lopen over deze , zal de woorden " CommonDialog " verschijnen . 4 Dubbelklik op het " deCommandButton " icoon in het linker paneel , vertegenwoordigd door een kleine rechthoek . Dit plaatst een opdracht op het formulier . Klik op de knop nu het label " opCommand1 . " In het "Eigenschappen " lijst voor deze functie op de rechter , verander de naam in " cmdPrint " . Scroll naar beneden tot u Wijzig de naam van deze op " Print " 5 Type " Bijschrift . " : . Dim FileName , TextLine , BeginPage , EndPage , NumCopies , Orientation , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( " Welke file moet ik afdrukken? ' ) Open FileName Voor Input Zoals # 1Do While Not EOF ( 1 ) Line Input # 1 , TextLinePrinter.Print TextLineLoopClose # 1End Test 6 de code door op " F5 " en klik op " Print" op het formulier . Voer het bestand locatie van een tekstbestand op uw computer . Het document moet afdrukken . Als dit niet gebeurt , beoordelen elke regel van de bovenstaande code om ervoor te zorgen het helemaal juist is .
|