Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Grafikausdruck m. Visual Basic

Frage Entwicklung Visual Studio

Mitglied: Forstpointler

Forstpointler (Level 1) - Jetzt verbinden

20.07.2004, aktualisiert 15.11.2005, 5141 Aufrufe, 2 Kommentare

Picturebox auf Drucker ausgeben

Hallo,
sollte jemand mein Problem lösen können, würde ich mich riesig freuen.
Nun mein Problem: In einer Form werden einige Tabelarische Daten in Listfelder und
Textfelder angezeigt, dazu werden in einer Picturebox noch ca. 10 Kurven gezeichnet.
Leider kann ich diese Formular nicht 1:1 (print.form1) auf dem Drucker ausgeben. Die Kurven werden
nicht ausgegeben!
Wer kann mir helfen!
Danke.
Mitglied: Forstpointler
29.07.2004 um 12:38 Uhr
Problem gelöst, war nur wieder mal ein 2zeiler.
Bitte warten ..
Mitglied: usurpator
15.11.2005 um 10:54 Uhr
Hallo forstpointler

mit folgender Funktion habe ich den Ausdruck einer Form am laufen:




Public Sub PrintForm()
' Gibt eine Bildschirmkopie einer am Bildschirm komplett
' sichtbaren Form auf dem Drucker aus (Screenshot).
' Platzieren Sie diesen Code im Form-Klassenmodul der
' Form, die Sie ausdrucken möchten.
' Zunächst: Bildschirmkopie der Form erzeugen.
' Nachteil: Verdeckte und anderweitig nicht sichtbare
' Teile(der) WinForm werden nicht mit in die Grafik ' aufgenommen.
' Graphics-Objekt für die Form erzeugen
Dim formGraphics As Graphics = Me.CreateGraphics
' Kompatible Bitmap erzeugen und Graphics-Objekt abholen
formImage = New Bitmap(Me.Width, Me.Height, formGraphics)
Dim memGraphics As Graphics = Graphics.FromImage(formImage)
' Quell- und Ziel-DCs abholen
Dim sourceDC As IntPtr = formGraphics.GetHdc
Dim targetDC As IntPtr = memGraphics.GetHdc
' Kopieren ("Screenshot")
BitBlt(targetDC, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, sourceDC, Me.ClientRectangle.X, Me.ClientRectangle.Y, SRCCOPY)
' Alternative Variante folgend auskommentiert:
' Mit dem folgenden Code wird die gesamte Form (inkl. Rändern
' und Titelzeile) in die Ziel-Bitmap kopiert: ' BitBlt(targetDC, _
' 0, 0, Me.Size.Width, Me.Size.Height, _ ' sourceDC, _
' 0, 0, _ ' SRCCOPY)
' DCs freigeben
formGraphics.ReleaseHdc(sourceDC)
formGraphics.Dispose()
memGraphics.ReleaseHdc(targetDC)
memGraphics.Dispose()
' In formImage steht die Abbildung der Form nun zur Verfügung.
' Die Abbildung aus formImage ausdrucken:
' Bild drehen:
tempbild = formImage
tempbild.RotateFlip(RotateFlipType.Rotate90FlipNone)
formImage = tempbild

PrintDocument1.Print()

formGraphics.Dispose()
End Sub



Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

PrintForm()
End Sub


Gruss usurpator
Bitte warten ..
Neuester Wissensbeitrag
Batch & Shell

Batch Script Editor - Programmvorstellung des Entwicklers

(6)

Tipp von wowItsDoge zum Thema Batch & Shell ...

Ähnliche Inhalte
Visual Studio
gelöst Pastebin auslesen mit Visual Basic? (2)

Frage von UltraZz zum Thema Visual Studio ...

Basic
Mit Visual Basic Batch Datei öffnen (14)

Frage von Flodsche zum Thema Basic ...

Visual Studio
gelöst Visual basic - Fenstergröße (4)

Frage von Cougar77 zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Suche richtig schlechte SSD und HDD (31)

Frage von Hyperion69 zum Thema Festplatten, SSD, Raid ...

Windows Server
Windows Server - Grundlegende Fragen (18)

Frage von Dragan123 zum Thema Windows Server ...

Exchange Server
Fehler bei öffnen des AutoResponder in OWA in verschiedenen Browsern (9)

Frage von Mobsmonster zum Thema Exchange Server ...

Apache Server
gelöst Apache2 startet aufgrund von Zugriffsverweigerung bei Logs nicht (8)

Frage von traller zum Thema Apache Server ...