kabourterplop
Gebruiker
- Lid geworden
- 25 feb 2007
- Berichten
- 323
Goedendag,
Ik ben bezig met een programma, maar nu wil ik alle resultaten die gevonden zijn met termen uitlaten printen, dat lukt allemaal maar nu het volgende tussen het merk type - prijs (het zijn zo 6 velden) zitten tabs om alles mooi in kolommen te laten lopen. Maar nu wilt hij geen vbTab / controlschar.Tab afdrukken.
Weet iemand hoe het dan wel moet?
Hier is de class waarmee ik print:
Ik ben bezig met een programma, maar nu wil ik alle resultaten die gevonden zijn met termen uitlaten printen, dat lukt allemaal maar nu het volgende tussen het merk type - prijs (het zijn zo 6 velden) zitten tabs om alles mooi in kolommen te laten lopen. Maar nu wilt hij geen vbTab / controlschar.Tab afdrukken.
Weet iemand hoe het dan wel moet?
Hier is de class waarmee ik print:
Code:
Public Class myPrinter
' Inherits all the functionality of a PrintDocument
Inherits Printing.PrintDocument
' Private variables to hold default font and text
Private fntPrintFont As Font
Private strText As String
Public Sub New(ByVal Text As String)
' Sets the file stream
MyBase.New()
strText = Text
End Sub
Public Property Text() As String
Get
Return strText
End Get
Set(ByVal Value As String)
strText = Value
End Set
End Property
Protected Overrides Sub OnBeginPrint(ByVal ev _
As Printing.PrintEventArgs)
' Run base code
MyBase.OnBeginPrint(ev)
' Sets the default font
If fntPrintFont Is Nothing Then
fntPrintFont = New Font("Tahoma", 8)
End If
End Sub
Public Property Font() As Font
' Allows the user to override the default font
Get
Return fntPrintFont
End Get
Set(ByVal Value As Font)
fntPrintFont = Value
End Set