Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Druckansicht speichern
Autor: Loco
Datum: 19.07.08 18:48
Hallo Leute, gerade aus dem Urlaub, aber immer noch das gleiche Problem Cookstdu hatte mir mit seinem Tip schon sehr geholfen aber ich kriege es nicht hin nur die Druckansicht zu Speichern und nicht den ganzen Bildschirm Sub speichern(ByVal pd As PrintPreviewDialog) application.doevents() 'Dateipfad erstellen Dim DateiSp As String = IO.Path.Combine( _ My.Computer.FileSystem.SpecialDirectories.Desktop, Form4.DruckBSH & _ ".Jpeg") 'Neue Bitmap in der Grösses des Printpreviewdialoges erstellen Dim bmp As New Bitmap(pd.Width, pd.Height) 'Den Dialog ins Bitmap zeichnen pd.DrawToBitmap(bmp, New Rectangle(0, 0, pd.Width, pd.Height)) 'und speichern bmp.Save(DateiSp, Drawing.Imaging.ImageFormat.Jpeg) 'und Aus End Sub Gruß Loco (Anfänger)

Druckansicht speichern	970	Loco	19.07.08 18:48
Re: Druckansicht speichern	520	cookstdu	20.07.08 12:40
Re: Druckansicht speichern	505	Loco	20.07.08 13:41

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