BoDOC Programmierer-Referenz

Einbindung

Multi-Target-DLL BoDOC.dll (net10.0-windows;net48, UseWindowsForms=true). Alle Typen liegen im Namespace BoDoc. Zeichenlogik nutzt System.Drawing/WinForms — Wiederverwendung nur in Windows-Desktop-Projekten.

Beispiel — Dokument mit Text, Boxen, Grafik, Bild, QR & Barcodes

' Dokument A4 anlegen + Default-Font/Metadaten setzen
Dim doc As New BoDocDocument(BoDocPaper.A4)
doc.DocumentTitle = "Rechnung 2026-0001"
doc.DocumentSetDefaultFont(BoDocFont.Calibri)
doc.DocumentDefaultFontSizePt = 10.0F

' --- Kopfzeile: gefülltes Rechteck mit runden Ecken + weißer Titeltext ---
doc.Add(New BoDocRect(15, 12, 180, 16) With {
    .Page = 1, .RectFilled = True, .RectFillColor = Color.FromArgb(31, 78, 110),
    .RectHasBorder = False, .RectCornerRadiusMm = 2.0})
doc.Add(New BoDocTextBox("RECHNUNG", 20, 12, 120, 16) With {
    .TextSizePt = 15.0F, .TextBold = True, .TextColor = Color.White,
    .TextVAlign = BoDocVAlign.Middle})

' --- Firmenlogo (Bild aus Datei; Höhe automatisch aus Seitenverhältnis) ---
doc.Add(New BoDocImage("C:\Firma\logo.png", 150, 32, 45, 0))

' --- Fließtext, rechtsbündig, eigene Farbe ---
doc.Add(New BoDocTextBox("Musterkunde GmbH" & vbCrLf & "Beispielweg 1" & vbCrLf & "1010 Wien",
    15, 34, 100, 0) With {.TextColor = Color.FromArgb(90, 90, 90)})

' --- Info-Box (leichte Füllung + Rahmen), Text darin zentriert ---
doc.Add(New BoDocRect(15, 60, 180, 12) With {
    .RectFilled = True, .RectFillColor = Color.FromArgb(238, 243, 248), .RectCornerRadiusMm = 1.5})
doc.Add(New BoDocTextBox("Zahlbar bis 14 Tage netto", 15, 60, 180, 12) With {
    .TextHAlign = BoDocHAlign.Center, .TextVAlign = BoDocVAlign.Middle, .TextBold = True})

' --- Trennlinie unter dem aktuellen Inhalt (GetPos verfolgt die Unterkante) ---
doc.Add(New BoDocLine(15, doc.GetPos(1) + 4, 195, doc.GetPos(1) + 4) With {.LinePenWidth = 0.4})

' --- Selbst gezeichnete Grafik: einfaches Balkendiagramm aus Rechtecken ---
Dim werte() As Double = {20, 45, 30, 60}
For i As Integer = 0 To werte.Length - 1
    doc.Add(New BoDocRect(20 + i * 14, 150 - werte(i), 10, werte(i)) With {
        .RectFilled = True, .RectFillColor = Color.FromArgb(214, 90, 30), .RectHasBorder = False})
Next

' --- QR-Code (freier Inhalt) und EAN-13-Barcode ---
doc.Add(New BoDocQr("https://www.bonit.at", 150, 160, 30, 30) With {
    .QrErrorCorrection = BoDocQrEcLevel.M})
doc.Add(New BoDocEan13("9012345678903", 15, 165, 45, 22))

' --- Zahlungs-QR / GiroCode (EPC069-12) — Builder legt Rahmen+QR+Caption ---
Dim pay As New BoDocPayQr() With {
    .PayName = "Max Mustermann",
    .PayIban = "AT61 1904 3002 3457 3201",
    .PayAmount = 199.90D,
    .PayRemittance = "Rechnung 2026-0001"}
Dim r = pay.PayBuild(doc, 70, 160, 55)   ' x, y, Breite (mm) → r.PayResultBottomMm = Unterkante

' --- Lesezeichen (nur im PDF sichtbar) ---
doc.DocumentAddBookmark("Seite 1", 1)

' === Ausgabe ===
viewer1.ViewerSetDocument(doc)                              ' a) im Viewer anzeigen
BoDocPdfWriter.PdfWriteToFile(doc, "C:\Temp\rechnung.pdf")   ' b) als PDF
BoDocPrint.PrintDialogFor(doc, Me)                       ' c) drucken

doc.Dispose()   ' gibt Ressourcen frei; der Viewer erledigt das sonst automatisch