You could try using vbNewLine to create a newline
code:
Private Sub cmdcalc_Click()
Dim Timestable, Number As Integer
For Timestable = 1 To 12
For Number = 1 To 12
frmTables.Print Number & " x " & Timestable & " = " & (Number * Timestable) & vbNewLine
Next Number
Next Timestable
End Sub