Thanks for your sample, it's a very good sample for reproduce this issue and saved our time to research it.
We found the solution for match it is like this:
If you try to print it to printer for example "Print to PDF", please set the dpi equal 100.
Dim oPrinterCanvas As PrinterGeoCanvas = New PrinterGeoCanvas()
oPrinterCanvas.Dpi = 100
It should works.
The left one is the result after set dpi and the right is default dpi.