Hola, la genero con códigos de esc ya que así me sirve para casi todas las impresora, el programa tiene un apartado en el que se configuran los códigos de salto de línea, ancho letra, tamaño de la letra, negrita etc.
Dim PrintBuffer As String
Dim btAdmin As BluetoothAdmin
Dim Printer As TextWriter
Text1=VariImpresos.AjustaColumna(VariImpresos.AnchPag ,"INFORME VENTAS",1,True)
Printer.WriteLine(Text1)