Wird dann in dem Druckauftrag zugewiesen.
Hier ein kurzes Beispiel:
Funktionierte bisher fehlerfrei.
Hier ein kurzes Beispiel:
VB.NET-Quellcode
- Private Sub Haus_HeizungHardware()
- ExcelApp = New Application
- ExcelBuch = ExcelApp.Workbooks.Open(Pfade.Formular.Pfad & "1032.xlsx")
- ExcelBuch.Saved = False
- ExcelApp.DisplayAlerts = False
- ExcelApp.Visible = False
- ExcelSeite = CType(ExcelBuch.Worksheets("Anlage"), Worksheet)
- With ExcelSeite.PageSetup
- .LeftHeader = "&12&B" & AppName & "-Hardware Heizung"
- .CenterHeader = "&12&B" & "Sternweg "
- .RightHeader = "&12&B" & "Imob-Nr. " & Einstellungen.IMOB_Objektnummer.ToString
- .LeftFooter = "&8" & Vorlagen.Copyright_Lang
- .CenterFooter = "&8" & "Printjob " & JobNummer.ToString
- End With
- ExcelSeite.Select()
- With ExcelSeite
- Zeile = 2
- For I = 0 To Haus.History.Tab_Hardware.Rows.Count - 1
- TabellenZeile = Haus.History.Tab_Hardware.Rows(I)
- Zeile += 1
- .Cells(Zeile, 1) = TabellenZeile("Beschreibung")
- .Cells(Zeile, 2) = TabellenZeile("Anlagenteil")
- Next I
- End With
- ExcelSeite.PrintOutEx()
- ExcelSeite = Nothing
- ExcelBuch = Nothing
- ExcelApp.Quit()
- ExcelApp = Nothing
- End Sub
Funktionierte bisher fehlerfrei.
Gruß Markus