Quel 10 che hai messo in fondo al metodo Line non è lo spessore ma il colore della linea, che potresti specificare meglio così:
codice:
Printer.Line (6900, 3100)-(6900, 12700), RGB(255, 0, 0)   'linea rossa
Per lo spessore devi usare la poprietà DrawWidth:
codice:
Printer.DrawWidth = 10
Printer.Line (6900, 3100)-(6900, 12700), RGB(0, 0, 0)   'linea nera