Fangen wir an!
Schritt 1
Wähle das Label-SteuerElement aus und ziehe es oben auf die Form! Dieses Label ist dazu adr, das der Benutzer weiss was er zu tuen hat (Anweisung)
Schritt 2
Nun Ziehe das Textbox-SteuerElement auf die Form, unterhalb des Labels, stellen die EIgenschaften auf Multi-Line und machen es etwas größer! Diese textbox beinhaltet später den Text, der gedruckt werden soll!
Schritt 3
Ziehe nun das Button - SteuerElement auf die Form, unter die Textbox in die Mitte! Der Button ist dazu dar, das der Druckvorgang später ausgeführt wird!
Schritt 4
Nun musst du die Eigenschaften so festlegen :
Label1 >> Text >> "Gebe hier den Text ein, der gedruckt werden soll"
Textbox1 >> ScrollBars >> Vertical
Button1 >> Text >> "Text drucken"
Form1 >> Text >> "Dein Fenster Titel"
Deine Form sollte jetzt ungefähr so aussehen :
Schritt 5
Mache einen Doppelklick auf den Button1, um in den Code Editor zu kommen!
Schritt 6
Nun Blättere im Code Editor ganz nach oben und schreibe :
Code:
Imports System.Drawing.printing
Schritt 7
Nun blätterst du wieder in die Ereignisprozedur Button1_click herunter, um folgenden Code einzutragen :
Code:
'Fehlerhandler verwenden, um Druckprobleme abzufangen Try 'PrintDoc-Variable mit dem Typ PrintDocument deklarieren Dim PrintDoc As New PrintDocument() AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText PrintDoc.Print() 'Text drucken Catch ex As Exception 'Druckausnahme abfangen MessageBox.Show("Leider ist beim Drucken ein Fehler aufgetreten", _ ex.ToString()) End Try
Schritt 8
Jetzt Blätterst du nach oben, und fügst deine eigene Sub ein :
Code:
'Sub-Prozedur zum Drucken von Text Private Sub PrintText(ByVal sender As Object, _ ByVal ev As PrintPageEventArgs) 'Mit DrawString Text in einem Graphics-Objekt erstellen' ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", _ 11, FontStyle.Regular), Brushes.Black, 120, 120) 'Angabe, dass dies die letzte auszudruckende Seite ist' ev.HasMorePages = False End Sub
So das wars von Mir Leute 80% Me Credits
20% gehen an mein Buch, von dem Ich gelernt habe ! Ich kann es euch nur empfehlen! Visual Basic schritt für schritt!
MFG JUsikid!