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