Ako tlačiť súbor pomocou jazyka Visual Basic 6.0

Visual Basic tlač obsahuje funkciu " tlačiarne " tlač súboru , ale nedáva žiadnu kontrolu nad formátovaním , najmä zabaliť dlhé linky . Ďalší kód môže manipulovať text , testovanie dĺžke vedenia a umiestnenie priestorov nájsť dobré miesto k rozbiť linky . Avšak , tam je jednoduchší spôsob , ako zapojiť len pár riadkov kódu a bohaté ovládací prvok TextBox . Jedinou nevýhodou je , že nebude poskytovať nastavenie okrajov . To je možné pomocou rozhrania API ( Application Programming Interface ) volanie , ale rozhranie API kód je zdĺhavý , beh cez 122 riadkov kódu a 700 + slov s vysvetlením . To presahuje rozsah tohto článku . Pokyny dovolená 1

Vytvorenie nového projektu štandardné EXE v jazyku Visual Basic kliknutím na " Súbor " a potom " New Project " a voľbe šablóny štandardné EXE . Pridať ovládací prvok Label na formulári , ktorý sa otvorí po kliknutí na ikonu Label v paneli ukazuje na ľavej strane . To je veľké písmeno " A " v kapsliach . Pozrite sa do zoznamu Vlastnosti , o práve na vlastnostiach Label1 a zmeniť titulok čítať " Meno súboru sa majú vytlačiť ? " , Ale neobsahujú úvodzovky .
2

Pridať ovládací prvok TextBox forma rovnakým spôsobom , pomocou ikony Nástroje na malom námestí s malými písmenami " AB " v ňom . Umiestnite textové pole na pravej strane štítku . Vyhľadajte " Text " vlastnosť v zozname vlastností pre túto kontrolu a dvojitým kliknutím na vlastnosť text zvýraznite predvolený názov . Stlačením tlačidla " Delete " na klávesnici a vyberte ho .
3

Pridať dve príkazové tlačidlá z panela nástrojov určených malým obdĺžnikom . Zmeniť titulok prvý " Print " a titulok na sekundu " Zrušiť " . Pridanie ovládacieho prvku na paneli kliknutím na " projekt " v hornom menu a potom " komponenty . Nájdite si " Microsoft Rich TextBox Control 6.0 ( SP6 ) " v zozname a kliknite na políčko ho vyberte . Kliknite na tlačidlo " Použiť " a " OK . " Pridať nový ovládací prvok , ktorý by mal byť v dolnej časti zoznamu konania. Presunutie kurzora nad ikonu sa zobrazí názov .
4

Kliknite na Microsoft Rich TextBox Control 6.0 ( SP6 ) na formulári . V zozname Vlastnosti pre túto kontrolu , odstrániť " Text " meno , zmeňte " Multiline " majetok z " False " na " To je pravda , aby " Visible " majetok " False " a nastavte " Písmo " majetok akéhokoľvek písma a veľkosti budete chcieť .
5

Dvojklikom na kontrolu tlače otvorte okno kód . Zadajte tento kód presne tak , ako sa zobrazí pod :

Private Sub Command1_Click ( ) Dim strFileToPrint , strFullFile , strReadLine Ako StringstrFileToPrint = Text1.TextOpen strFileToPrint Pre vstup ako # 1do Do EOF ( 1 ) Linkový vstup # 1 , strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub

Pod týmto typom nasledujúci kód :

Private Sub Command2_Click ( ) EndEnd Sub

6

Stlačte " F5 " pre spustenie programu a vytlačiť súbor . Ak sa dokument nevytlačí , skontrolujte riadky kódu vyššie , aby sa uistite , že ste ich zadali správne . Ak sa zobrazí varovanie o tom , súbor nebol nájdený , potom skontrolovať umiestnenie a názov súboru .

• Predchádzajúca strana: Ako importovať kalendár pre Sharepoint 2007 
• Ďalšia strana: Ako obnoviť nastavenie cookie , takže si môžete otvoriť webovú stránku