to make it go into rows just add a vbcrlf like
code:
Private Sub cmdcalc_Click()
Dim Timestable As Integer
Dim Number As Integer
For Timestable = 1 To 12
For Number = 1 To 12
frmTables.Print Number & " x " & Timestable & " = "; (Number * Timestable) & vbcrlf
Next Number
Next Timestable
End Sub