Para deshacer el texto se hace:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const DESHACER = &HC7
 
Private Sub Command1_Click()
SendMessage Text1.hwnd, DESHACER, 0&, 0&
End Sub
 

Con el codigo para imprimir debe ser algo como

CommonDialog1.ShowPrinter
 

pero no se que mas le sigue, como no tengo impresora no puedo publicar con certeza el codigo, asi que lo dejo a medias
alguien que tenga impresora o donde conseguir la forma de imprimirlo que nos de una mano que tmb quiero aprender.
saludos