Version 1: Major and minor tickmarks appear

Plot[2Sin[x],{x,-3,3},​​PlotStyleRed,​​AxesLabel{x,y},​​PlotRange{-3,3},​​LabelStyleDirective[Black,14,Italic,FontFamily"Times New Roman"],​​GridLines{Range[-3,3,1],Range[-3,3,1]},​​Ticks{-2,-1,1,2},​​TicksStyleDirective[Black,Plain,12],​​AxesStyleArrowheads[{Automatic,Automatic}],​​AspectRatio1​​]

Version 2: Only major tickmarks appear

Plot[2Sin[x],{x,-10,10},​​PlotStyleRed,​​AxesLabel{x,y},​​PlotRange{-11,11},​​LabelStyleDirective[Black,14,Italic,FontFamily"Times New Roman"],​​GridLines{Range[-10,10,1],Range[-10,10,1]},​​Ticks{{-10,-5,5,10},{-10,-5,5,10}},​​TicksStyleDirective[Black,Plain,12],​​AxesStyleArrowheads[{Automatic,Automatic}],​​AspectRatio1​​]