"Screenshot" von Form als Word Dokument speichern

tobikell · 9. August 2014, 18:01

Hallo,

Ich würde gerne einen Screenshot, also ein Bild, meiner gesamten Form zum späteren ausdrucken o.ä. in einem Word Dokument (.doc) speichern.

Die Bitmap Datei mit der Form als "Inhalt" habe ich bereits erstellt. Aber ich krieg des einfach nicht hin, das Bild dann in einem Word Dokument zu speichern

.

Kann mir bitte jemand helfen?

Gruß, tobi

petaod · 9. August 2014, 18:11

Du kannst die Zwischenablage dafür vergewaltigen.
dotnettreats.com/tipstricks/howtoword1.aspx

Oder du pufferst es in einer Datei zwischen und verwendest AddPicture:
msdn.microsoft.com/en-us/libra…ineshapes.addpicture.aspx

tobikell · 9. August 2014, 18:24

petaod schrieb:

Du kannst die Zwischenablage dafür vergewaltigen.
dotnettreats.com/tipstricks/howtoword1.aspx

Ich habe das Bitmap in der Zwischenablage gespeichert (aber mit einem anderen viel längeren Code :D).
Aber ich habe es immer noch nicht fertig gebracht, das Bitmap von der Zwischenablage in einem Word Dokument zu speichern..

petaod · 9. August 2014, 18:31

Benötigst du Hilfe, wie du das Word-Dokument öffnest und positionierst?
codeproject.com/Articles/55685…ation-using-VB-NET-Part-I

Oder wo klemmt's?

RodFromGermany · 9. August 2014, 18:40

Wozu musst Du ein Bild

tobikell schrieb:

in einem Word Dokument ... speichern

Was ist der Plan?

tobikell · 9. August 2014, 18:40

Es klemmt allgemein daran, dass ich keinen Plan hab, wie ich ein neues Word-Dokument erstellen kann. Das Bild automatisch darin zu speichern und dann das Word-Dokument wieder zu schließen.

Oder gibt es eine bessere/sicherere Lösung, das Bild zu speichern? (falls andere Computer kein Word installiert haben)

RodFromGermany schrieb:

Was ist der Plan?

Der Plan ist, dass ich eine Form hab, in der Bestimmte Daten für einen Auftrag stehen.
Und ich will die Form dann ausdrucken. Aber nicht sofort sondern ein ander mal. Also muss ich das Bild der Form ja irgendwo abspeichern und da habe ich eben an ein Word-Dokument gedacht. Vllt gibt es ja auch eine bessere Lösung ?

RodFromGermany · 9. August 2014, 18:50

tobikell schrieb:

das Bild zu speichern

geht so:

VB.NET-Quellcode

Dim bmp = MyScreenShot()
bmp.Save("c:\Temp\ScreenShot.png", Imaging.ImageFormat.Png)

tobikell · 9. August 2014, 18:57

Okay, dann mach ich das eben so. Kann ich das Bild dann so klein machen, dass es auf eine DINA-4-Seite passt ?

RodFromGermany · 9. August 2014, 18:59

tobikell schrieb:

so klein machen

Zuschneiden und Skalieren von Bildern

tobikell · 10. August 2014, 02:45

Ich komm auf keinen grünen Zweig..

Hab jetzt das Bild einfach als .jpg Datei gespeichert und kann sie jetzt natürlich mit Paint oder ähnlichem Programm öffnen.
Beim Versuch, das Bild dann zu drucken, habe ich aber nur einen Teil des Bildes auf meinem ersten Blatt. Aber ich will das komplette Bild ja auf einem normalem Blatt.
Mit dem Code msdn.microsoft.com/de-de/library/e06tc8a5(v=vs.110).aspx komm ich aber auch nicht weiter, da ich "mygraphics" nicht als "using mygraphics as graphics = e.graphics" deklarieren kann.
(Hab den Code in einem Button_Click event)

So muss ich jetzt halt in paint die Größe des Bildes verändern. Naja egal, besser als gar nichts

RodFromGermany · 10. August 2014, 08:37

tobikell schrieb:

komm ich aber auch nicht weiter, da ich

nicht in der Lage bin, mit "elementare" Informationen zu beschaffen.

VB.NET-Quellcode

Dim myGraphics As Graphics = Graphics.FromImage(myBitmap)
' ...
myBitmap.Save("C:\Temp\Test.jpg", Imaging.ImageFormat.Jpeg)

TVX · 10. August 2014, 18:59

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bmp As Bitmap = Form_Bild(Me, New Size(500, 500))
bmp.Save(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Doc.png"), Imaging.ImageFormat.Png)
End Sub
Private Function Form_Bild(ByVal Element As Control, ByVal NewSize As Size) As Bitmap
Dim Width As Integer = Element.Width
Dim Heigth As Integer = Element.Height
Dim Bitmap1 As Bitmap = New Bitmap(width, heigth)
Element.DrawToBitmap(Bitmap1, Rectangle.FromLTRB(0, 0, Width, Heigth))
Dim Bitmap2 As New Bitmap(NewSize.Width, NewSize.Height, Bitmap1.PixelFormat)
Graphics.FromImage(Bitmap2).DrawImage(Bitmap1, 0, 0, NewSize.Width, NewSize.Height)
Return Bitmap2
End Function
End Class

Und dazu zum Drucken -Quelle ( vbarchiv.net/tipps/details.php?id=1340 )

VB.NET-Quellcode

With PrintDocument1
.PrinterSettings.PrinterName = "PDFCreator"
.DocumentName = "Print Picture"
.Print()
End With

VB.NET-Quellcode

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 oImage As Image = Image.FromFile("datei.jpg")
Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
gr.DrawImage(oImage, r)
gr.Dispose()
End Sub

RodFromGermany · 11. August 2014, 05:34

@TVX Danke, Danke, Danke, Danke, Danke, dass Du wieder einmal versucht hast, einem jungen Kollegen das Denken abzunehmen.

tobikell · 11. August 2014, 09:05

Danke, aber habs selber gestern schon über die PrintDocument-Funktion realisiert

Snaptu · 11. August 2014, 09:35

Wieso löst dus nicht gleich ordentlich und machst dir für deine Aufträge einen Report?
ReportViewer-Tutorial für Anfänger

Screenshot -> Word -> Drucken -> Woot?

tobikell · 11. August 2014, 09:42

Weil ich von einem reportviewer noch nie etwas gehört habe

Habs ja jetzt eingesehen, dass des mit word Schwachsinn is. Deswegen hab ich ja jetzt die PrintDocument-Funktion genommen

RodFromGermany · 11. August 2014, 09:52

Was hat

tobikell schrieb:

PrintDocument

mit Deinem oben beschriebenen Problem zu tun?
-----
Gugst Du hier.

tobikell · 11. August 2014, 12:47

Hat damit gar nichts zum tun. Is aber, meiner Meinung nach, der bessere und viel einfachere weg um den Auftrag auf Papier zu bringen. Warum genau ich des nicht gleich von Anfang an so machen wollte, kann ich so jetzt nicht sagen.

Trotzdem nochmal danke an alle!

"Screenshot" von Form als Word Dokument speichern

"Screenshot" von Form als Word Dokument speichern

petaod schrieb:

tobikell schrieb:

RodFromGermany schrieb:

tobikell schrieb:

VB.NET-Quellcode

tobikell schrieb:

tobikell schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

tobikell schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben