PDFsharp & MigraDoc Foundation

open System
open MigraDocCore.DocumentObjectModel
open MigraDocCore.Rendering

module Helper =
    open MigraDocCore.DocumentObjectModel.MigraDoc.DocumentObjectModel.Shapes
    let initialize () =
        if (ImageSource.ImageSourceImpl = null) then
            let imageSource = PdfSharpCore.Utils.ImageSharpImageSource<SixLabors.ImageSharp.PixelFormats.Rgba32>();
            ImageSource.ImageSourceImpl <- imageSource
   
    let getImageSource (filename: string) =
        let b = System.IO.File.Exists(filename)
        ImageSource.FromFile(filename)

let build () =
   
    Helper.initialize ()
    let doc = Document ()
    let section = doc.AddSection ()
    let table = section.AddTable()
    table.Borders.Color <- Colors.Navy
    table.LeftPadding <- 0
    table.RightPadding <- 0
    table.BottomPadding <- 0
    table.TopPadding <- 0

    let width = Unit.FromMillimeter 50

    table.AddColumn(width) |> ignore
    table.AddColumn(width) |> ignore
    table.AddColumn(width) |> ignore

    let row = table.AddRow ()

    row.Cells[0].Shading.Color <- Colors.LightBlue
    row.Cells[1].Shading.Color <- Colors.Aqua
    row.Cells[2].Shading.Color <- Colors.LightBlue

    let para = row.Cells[1].AddParagraph()
    para.Style <- "DataCell"
    para.Format.Shading.Color <- Colors.Yellow
    para.Format.Borders.Distance <- Unit.Zero
    para.Format.Borders.Top.Width <- Unit.Zero
    para.Format.Borders.Bottom.Width <- Unit.Zero
    let imageSource = "logo.png" |> Helper.getImageSource
    let image = para.AddImage(imageSource)
    image.LockAspectRatio <- true

    let filename =
        let now = DateTime.Now
        let year = now.Year
        let month = now.Month
        let ticks = now.Ticks
        $"{year}-%02i{month}-Invoice_%08i{ticks}.pdf"
    let renderer = new PdfDocumentRenderer()
    renderer.Document <- doc
    renderer.RenderDocument()
    renderer.PdfDocument.Save(filename)
    ()