Een Windows-toepassing maken en weten hoe u een afdruk- en afdrukvoorbeeld kunt maken? Volg deze eenvoudige stappen en u kunt eenvoudig voorbeelddocumenten in uw toepassing afdrukken en afdrukken.
Deel een van de drie:
Het formulier
-
1 Pas het formulier aan de gewenste grootte aan.
- Het maakt niet uit in welke grootte het formulier staat, op voorwaarde dat het in een groot tekstvak en twee knoppen past.
-
2 Voeg een RichTextBox toe aan uw formulier.
- U kunt een RichTextBox toevoegen door erop te dubbelklikken of het naar het formulier te slepen.
- Pas de grootte van de RichTextBox aan uw vereisten aan.
-
3 Voeg twee knoppen toe aan uw formulier.
- Plaats de twee knoppen bij voorkeur in de buurt van RichTextBox.
- Nogmaals, u kunt Knoppen toevoegen aan uw formulier door te dubbelklikken of te slepen naar het formulier.
-
4 Noem de knoppen "Afdrukken" en "Afdrukvoorbeeld".
- U kunt de tekst voor de knoppen in het eigenschappenvak wijzigen.
-
5 Voeg de besturingselementen toe: "Document afdrukken" en "PrintPreviewDialog" naar uw formulier.
- Deze zullen niet zichtbaar zijn op het formulier zoals ze op de achtergrond uitvoeren.
-
6 Klik op PrintPreviewDialog en verander het "Document" in "PrintDocument1".
- U kunt dit wijzigen in het eigenschappenvenster nadat u op PrintPreviewDialog hebt geklikt.
Tweede deel van de drie:
De code
-
1 Dubbelklik op uw knop "Afdrukvoorbeeld".
- Dit zal de pagina voor codering oproepen.
- Er is al een privé-sub aangemaakt en in afwachting van de code om aan te geven wat te doen wanneer op de knop Afdrukvoorbeeld wordt geklikt.
- Voeg de volgende code toe aan de privésub:
PrintPreviewDialog1.ShowDialog ()
-
2 Ga terug naar het formulier en dubbelklik op de knop "Afdrukken".
- U wordt voor codering teruggebracht naar de pagina.
- Voeg in de Private Sub die is gemaakt de volgende code toe:
PrintDocument1.Print ()
-
3 Ga terug naar het formulier en dubbelklik op "PrintDocument1" onder het formulier.
- U wordt voor codering teruggebracht naar de pagina.
- Een privé sub wordt gemaakt met de naam "PrintDocument1_PrintPage". Plaats de volgende code in de Sub:
Dim font1 As New Font ("arial", 16, FontStyle.Regular) e.Graphics.DrawString (RichTextBox1.Text, font1, Brushes.Black, 100, 100)
Derde deel van de drie:
Debuggen en testen
-
1 Klik op "Start" om het proces voor foutopsporing en testen te starten.
- Als u deel één en twee van dit artikel hebt gevolgd, mag u geen fouten tegenkomen.
-
2 Test of de afdrukvoorbeeldfunctie werkt.
-
3 Test om te zien of de afdrukfunctie werkt.
-
4 Ruim je code op. Nadat het foutopsporings- en testproces is voltooid zonder kritieke fouten, moet u uw code opschonen. Zorg dat het er netjes en professioneel uitziet.
Facebook
Twitter
Google+