Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Druckansicht speichern 2. Versuch
Autor: Loco
Datum: 06.07.08 19:41
Hallo cookstdu, meine Sub's Sub drucken() Dim nWorkingWidth As Integer Dim nWorkingHeight As Integer With Screen.PrimaryScreen.WorkingArea nWorkingWidth = .Width nWorkingHeight = .Height End With With PrintPreviewDialog1 .Document = PrintDocument1 .Height = nWorkingHeight .Width = nWorkingWidth .ShowDialog() End With End Sub Private Sub PrintPreviewDialog1_Shown(ByVal sender As Object, ByVal e As _ ' von dir System.EventArgs) Handles PrintPreviewDialog1.Shown speichern() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) _ Handles PrintDocument1.PrintPage Dim gr As Graphics = e.Graphics Dim printrect As Rectangle = e.MarginBounds Dim fnt As New Font("courier", 10) . . . fnt.Dispose() End Sub ' Speichern Sub Speichern() Dim DateiSp As String DateiSp = Form4.DruckBSH & ".Jpeg" Dim filePath As String filePath = My.Computer.FileSystem.SpecialDirectories.Desktop ScreenToPicture(filePath & "\" & DateiSp, System.Drawing.Imaging.ImageFormat.Jpeg) End Sub Function ScreenToPicture(ByVal Location As String, ByVal Format As System.Drawing.Imaging.ImageFormat) As String Try Dim currentScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim ScreenToBitmap As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim gGraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ScreenToBitmap) gGraphics.CopyFromScreen(New Point(10, 10), New Point(10, 10), currentScreenSize) ' Screenshot speichern ScreenToBitmap.Save(Location, Format) ' Screenshot in Zwischenablage kopieren Clipboard.SetImage(ScreenToBitmap) Return Location Catch ex As Exception Return ex.Message End Try End Function Gruß Loco

Druckansicht speichern 2. Versuch	1.059	Loco	06.07.08 17:09
Re: Druckansicht speichern 2. Versuch	675	cookstdu	06.07.08 17:44
Re: Druckansicht speichern 2. Versuch	612	Loco	06.07.08 18:44
Re: Druckansicht speichern 2. Versuch	664	cookstdu	06.07.08 19:11
Re: Druckansicht speichern 2. Versuch	625	Loco	06.07.08 19:41
Re: Druckansicht speichern 2. Versuch	681	cookstdu	06.07.08 20:18
Re: Druckansicht speichern 2. Versuch	648	Loco	06.07.08 20:52

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen