mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pdf output of GUI

This commit is contained in:
Mans 2021-03-15 14:41:01 +01:00
parent 0106aace4f
commit 49e4ecf33f
3 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
HLCt/Parts/~$START.SLDPRT
View File

Binary file not shown.

19
Wardrobe/GUI/Individual.vb
View File

@ -1,7 +1,6 @@
 Imports Word = Microsoft.Office.Interop.Word
Public Class Individual Public Class Individual
Public Shared filepath As String '= "C:\Users\Anton\Documents\Exjobb" Public Shared filepath As String
'Public Shared filepath As String = "C:\Users\xperd\Documents"
Sub Load_GUI() Sub Load_GUI()
' Initialize GUI ' Initialize GUI
@ -258,7 +257,21 @@ Public Class Individual
' ---------------------------------- Export GUI ---------------------------------- ' ---------------------------------- Export GUI ----------------------------------
' --- When export GUI button is pressed --- ' --- When export GUI button is pressed ---
Private Sub Button_Export_GUI_Click(sender As Object, e As EventArgs) Handles Button_Export_GUI.Click Private Sub Button_Export_GUI_Click(sender As Object, e As EventArgs) Handles Button_Export_GUI.Click
'Dim startPoint As New Point(Me.Left + Panel_Grating.Left, Me.Top + Panel_Grating.Top)
Dim startPoint As New Point
startPoint = Panel_Grating.PointToScreen(Point.Empty)
Dim tempImg As New Bitmap(Panel_Grating.Width - 1, Panel_Grating.Height - 1)
Dim test As Graphics = Graphics.FromImage(tempImg)
test.CopyFromScreen(startPoint, New Point(0, 0), tempImg.Size)
tempImg.Save(filepath & "\Screenshot.png", Imaging.ImageFormat.Png)
Dim doc As Word.Document = New Word.Document()
doc.Content.Text = "Hello World"
doc.Content.InlineShapes.AddPicture(filepath & "\Screenshot.png")
doc.ExportAsFixedFormat(filepath & "\myfilename.pdf", Word.WdExportFormat.wdExportFormatPDF)
doc.Close(False)
End Sub End Sub
' ---------------------------------- Back to main menu ---------------------------------- ' ---------------------------------- Back to main menu ----------------------------------

9
Wardrobe/Wardrobe.vbproj
View File

@ -170,6 +170,15 @@
<Isolated>False</Isolated> <Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference> </COMReference>
<COMReference Include="Microsoft.Office.Interop.Word">
<Guid>{00020905-0000-0000-C000-000000000046}</Guid>
<VersionMajor>8</VersionMajor>
<VersionMinor>7</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>primary</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="SldWorks"> <COMReference Include="SldWorks">
<Guid>{83A33D31-27C5-11CE-BFD4-00400513BB57}</Guid> <Guid>{83A33D31-27C5-11CE-BFD4-00400513BB57}</Guid>
<VersionMajor>28</VersionMajor> <VersionMajor>28</VersionMajor>