Private Sub Command1_Click()
Me.ScaleMode = 6 'digo que la unidad es en mm
Me.Font.Bold = True 'letra en negrita
Me.Font.Underline = True ' subrayado
Me.Font.Size = 10 ' tamaño de letra
Me.CurrentX = 25 'posicion X
Me.CurrentY = 25 'posicion Y
Me.Print "Esto es un titulo" ' lo que vas a imprimir en el formulario
End Sub
Nota: Las cordenadas XY las tenes ke setear antes del print
saludos y suerte