Visual Basic afdrukken bevat een "Printer " -functie om een bestand af te drukken , maar geeft geen enkele controle over de opmaak , met name voor langdurig lijnen wikkelen . Aanvullende code kunt de tekst bewerken , testen op lijn lengte en de plaats van de ruimten om een goede plek om de regels te breken vinden . Echter, er is een eenvoudiger manier met slechts een paar regels code en een Rich TextBox-besturingselement . Het enige nadeel is dat het niet marge-instellingen bieden . Dit is mogelijk met een API ( Application Programming Interface ) oproep , maar de API- code is lang , loopt meer dan 122 regels code en 700 + woorden met uitleg . Dit is meer dan het bestek van dit artikel . Instructies
1 Maak een nieuw standaard-EXE -project in Visual Basic door te klikken op " File " en vervolgens " New Project " en het kiezen van de standaard-EXE- template . Voeg een label aan het formulier dat wordt geopend door te klikken op het pictogram Label in de Toolbox zien op de linkerkant . Dit is de grote letter " A " in caps . Kijk in de lijst Eigenschappen aan de rechterkant voor de Label1 eigenschappen en verander het bijschrift te lezen " Naam van de af te drukken bestand ? ' , Maar omvatten niet de aanhalingstekens . Kopen van 2 Voeg een TextBox-besturingselement te de vorm op dezelfde wijze via de Toolbox pictogram van een klein vierkant met kleine letters " ab " daarin . Plaats de tekstbox aan de rechterzijde van het Label . Zoek de " Text " eigenschap in de lijst eigenschappen voor deze controle en dubbel klik op de eigenschap Text om de standaardnaam te markeren . Druk op de "Delete" op je toetsenbord om het te verwijderen .
3 Voeg twee opdrachtknoppen uit de ToolBox , geïdentificeerd door een kleine rechthoek . Verander de Caption van de eerste om " Print " en het bijschrift van de tweede op " Annuleren " . Voeg een controle aan de Toolbox door te klikken op " Project " in het bovenste menu en vervolgens " Components . Zoek de " Microsoft Rich Textbox Controle 6.0 ( SP6 ) " in de lijst en klik op het selectievakje om het te selecteren . Klik op "Toepassen" en " OK". Voeg de nieuwe regeling , die moet worden aan de onderzijde van de lijst . Beweegt de cursor over het pictogram zal de naam worden weergegeven .
4 Klik op de Microsoft Rich tekstvak Controle 6.0 ( SP6 ) op het formulier . In de lijst met eigenschappen voor deze controle , verwijdert de " Text" naam , de " Multiline " eigenschap te veranderen van " False " naar " True , maken de " Visible " eigendom " False " en stel de " Font " eigenschap om het lettertype en de grootte u wenst .
5 Dubbelklik op de Print controle om het venster Code te openen . Voer deze code in exact zoals hieronder weergegeven : Private Sub Command1_Click
( ) Dim strFileToPrint , strFullFile , strReadLine Zoals StringstrFileToPrint = Text1.TextOpen strFileToPrint Voor Input Zoals # 1Do Tot EOF ( 1 ) Line Input # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub
onder dit type de volgende code : Private Sub Command2_Click
( ) EndEnd Sub
< br Druk op " F5 " > 6 om het programma uit te voeren en een bestand af . Als het document niet wordt afgedrukt , controleert u de regels code hierboven om er zeker van u ze correct ingevoerd . Als er een waarschuwing verschijnt om het effect van het bestand is niet gevonden , dan dubbel te controleren van de locatie en de bestandsnaam .
|
