|
| |
VB.NET - Ein- und Umsteiger| print doucument | |  | | Autor: fca_mi2 | | Datum: 12.07.14 10:53 |
| hallo,
wieso kann ich aus "PrintPreviewControl1_Click" nicht über "textzeile" in das printdocument schreiben ?
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
Public Class FC_AUSGABE
Public Shared Property tpx As Double = 100 'aktuelle textpos x
Public Shared Property tpy As Double = 100 'aktuelle textpos y
Public Shared Property texth As Integer = 8 'texthoehe
Public Shared Property textfont As Font = New Drawing.Font("arial", texth)
Private Shadows Property dokument As Object
Public Function TEXTZEILE(zeile As String)
tpy = tpy + texth + texth
dokument.DrawString(zeile, textfont, Brushes.Red, tpx, tpy)
End Function
Private Sub PrintDocument1_PrintPage(sender As Object, pe As PrintPageEventArgs) Handles PrintDocument1.PrintPage
dokument = pe.Graphics
TEXTZEILE("Neue Zeile")
End Sub
Private Sub FC_AUSGABE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
HScrollBar1.Value = 50
PrintPreviewControl1.Zoom = HScrollBar1.Value / 50
End Sub
Private Sub PrintPreviewControl1_Click(sender As Object, e As EventArgs) Handles PrintPreviewControl1.Click
TEXTZEILE("Neue Zeile")
End Sub
End Class | |
| Re: print doucument | | | Autor:  DaveS (Moderator) | | Datum: 12.07.14 11:45 |
| Die Druckdaten können nur in PrintPage() ausgegeben werden da nur da die notwendige Umgebung existiert.
So geht es zB um deinen Code leicht umzuwandeln
Public Shared Property tpx As Double = 100 'aktuelle textpos x
Public Shared Property tpy As Double = 100 'aktuelle textpos y
Public Shared Property texth As Integer = 8 'texthoehe
Public Shared Property textfont As Font = New Drawing.Font("arial", texth)
Public Sub TEXTZEILE(pe As PrintPageEventArgs, zeile As String)
tpy = tpy + texth + texth
pe.Graphics.DrawString(zeile, textfont, Brushes.Red, tpx, tpy)
End Sub
Private Sub PrintDocument1_PrintPage(sender As Object, pe As _
PrintPageEventArgs) Handles PrintDocument1.PrintPage
TEXTZEILE(pe, "Neue Zeile")
End Sub
Private Sub FC_AUSGABE_Load(sender As Object, e As EventArgs) Handles _
MyBase.Load
HScrollBar1.Value = 50
PrintPreviewControl1.Zoom = HScrollBar1.Value / 50
PrintPreviewControl1.Document = PrintDocument1
End Sub________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist | |
| Re: print doucument | | | | Autor: fca_mi2 | | Datum: 12.07.14 18:12 |
| mmh
und wie kann ich printdocument dann von außen füttern ?
| |
| Re: print doucument | | | | Autor: fca_mi2 | | Datum: 15.07.14 06:57 |
| Hi,
gibt es denn eigentlich noch andere möglichkeiten eine druckvorschau zu erstellen ?
| |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.