Acabo de probar imprimir una caja de texto multiline y la impresion se realiza tal y como se muestra en el text1, utlize el objeto printer, pero no se a que te refieres con eso de 2 columnas?
Código:
Private Sub Command1_Click()
Printer.Print Text1
Printer.EndDoc
End Sub