Guten Morgen zusammen,
ich hab nun mein Projekt fast fertig gestellt. Jetzt möcht ich noch ein "NiceToHave" als Highlight für den Chef einbauen .
Ich würde gerne eine Excel-Vorlage kopieren, diese über mein Programm füllen und dann aber als pdf ausgeben.
Die Excel krieg ich soweit hin. wobei es happert ist der Export als pdf. Hab schon das Netz auf links gedreht, aber nichts gefunden, was mich weiterbringt.
Hat jemand ne Idee wie ich das angehen muss? SaveAs... Print...???
Griaßle Sarah (übrigens...bin absoluter Anfänger!!!)
Hier mal ein Auszug von meinem bisherigen Code:
Spoiler anzeigen
Wie kann ich den Code hier eigentlich einbetten, dass es als "Spoiler" angezeigt wird? So wird der Thread ja Kilometerlang
ich hab nun mein Projekt fast fertig gestellt. Jetzt möcht ich noch ein "NiceToHave" als Highlight für den Chef einbauen .
Ich würde gerne eine Excel-Vorlage kopieren, diese über mein Programm füllen und dann aber als pdf ausgeben.
Die Excel krieg ich soweit hin. wobei es happert ist der Export als pdf. Hab schon das Netz auf links gedreht, aber nichts gefunden, was mich weiterbringt.
Hat jemand ne Idee wie ich das angehen muss? SaveAs... Print...???
Griaßle Sarah (übrigens...bin absoluter Anfänger!!!)
Hier mal ein Auszug von meinem bisherigen Code:
VB.NET-Quellcode
- Private Sub Exportieren_Click(sender As Object, e As EventArgs) Handles Exportieren.Click
- If TB_ID.Text <> "" Then
- Dim Name As String = TB_06.Text
- Dim Vorname As String = TB_05.Text
- 'Sonderzeichen entfernen
- If Name.Contains("ä") Then
- Name = Name.Replace("ä", "ae")
- ElseIf Name.Contains("ö") Then
- Name = Name.Replace("ö", "oe")
- ElseIf Name.Contains("ü") Then
- Name = Name.Replace("ü", "ue")
- ElseIf Name.Contains("ß") Then
- Name = Name.Replace("ß", "ss")
- End If
- Dim xls_Kontakt As String = "C:\temp\" & Name & "_" & Vorname & ".xlsx"
- IO.File.Copy(xlsVorlage, xls_Kontakt, True)
- Dim xls_Appl As Excel.Application ' Excel Anwendung
- Dim xls_Mappe As Excel.Workbook ' Excel Arbeitsmappe
- Dim xls_Blatt As Excel.Worksheet ' Excel Blatt (Tabelle)
- 'Dim Anzahlzeilen As Integer
- xls_Appl = New Excel.Application() ' Excel Instanz bilden
- xls_Appl.Visible = False
- xls_Mappe = xls_Appl.Workbooks.Open(xls_Kontakt)
- xls_Blatt = CType(xls_Mappe.ActiveSheet, Excel.Worksheet)
- 'Zeile, Spalte
- xls_Blatt.Cells(3, 5) = TB_06.Text & " " & TB_05.Text 'Überschrift
- xls_Blatt.Cells(49, 6) = Now.ToShortDateString 'Stand
- xls_Blatt.Cells(5, 4) = TB_01.Text 'Firma
- xls_Blatt.Cells(16, 4) = TB_02.Text 'Position
- xls_Blatt.Cells(18, 4) = TB_03.Text 'Titel
- xls_Blatt.Cells(20, 4) = CB_04.Text 'Anrede
- xls_Blatt.Cells(22, 4) = TB_05.Text 'Vorname
- xls_Blatt.Cells(24, 4) = TB_06.Text 'Name
- xls_Blatt.Cells(7, 4) = TB_07.Text 'Gesch. - Straße
- xls_Blatt.Cells(9, 4) = TB_08.Text & ", " & TB_09.Text 'Gesch. - PLZ + Ort
- xls_Blatt.Cells(26, 4) = TB_10.Text 'Gesch. - Telefon
- xls_Blatt.Cells(28, 4) = TB_11.Text 'Gesch. - Fax
- xls_Blatt.Cells(37, 4) = TB_12.Text 'Privat - Straße
- xls_Blatt.Cells(39, 4) = TB_13.Text & ", " & TB_14.Text 'Privat - PLZ + Ort
- xls_Blatt.Cells(41, 4) = TB_15.Text 'Privat - Telefon
- xls_Blatt.Cells(45, 4) = TB_16.Text 'Privat - email
- xls_Blatt.Cells(30, 4) = TB_17.Text 'Gesch. - mobil
- xls_Blatt.Cells(32, 4) = TB_18.Text 'Gesch. - email
- xls_Blatt.Cells(13, 4) = TB_19.Text 'Homepage
- xls_Blatt.Cells(47, 4) = TB_21.Text 'Bemerkung
- xls_Blatt.Cells(11, 4) = TB_22.Text 'Gesch. - Land
- xls_Blatt.Cells(35, 4) = TB_23.Text 'Zusatzadresse
- xls_Blatt.Cells(43, 4) = TB_24.Text 'Privat - Mobil
- 'xls_Blatt.Cells(1,1) = TB_ID.Text 'ID
- xls_Appl.Application.WindowState = Excel.XlWindowState.xlMinimized
- xls_Appl.Visible = True
- xls_Mappe.Close(SaveChanges:=True)
- xls_Appl.Quit()
- MessageBox.Show("Der Kontakt " & TB_06.Text & " " & TB_05.Text & " wurde unter C:\temp gespeichert")
- Else
- MessageBox.Show("Bitte Kontakt auswählen")
- End If
- End Sub
Wie kann ich den Code hier eigentlich einbetten, dass es als "Spoiler" angezeigt wird? So wird der Thread ja Kilometerlang
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sarah“ ()