Hay veces que al imprimir líneas o círculos no tiene efecto la propiedad DrawWidth especificada sino que se imprimen con el ancho de línea por defecto, es decir, 1.
Podemos resolver esto añadiendo Printer.Print antes de imprimir cualquier cosa y antes de modificar cualquier propiedad del objeto Printer.
Un método mejor es imprimir un círculo nulo

Printer.DrawWidth = 1
Printer.Circle (0, 0), 0

antes de cualquier otra impresión o de establecer el valor deseado para la propiedad DrawWidth.