抛物线平移中,“左右看括号,上下看常数,左加右减,,上加下减”,是什么意思
2个回答
展开全部
这个只能用宏实现,且必须同时打印。确保默认打印机正确。
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub Test()
Dim i As Integer
For i = 1 To (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
If i Mod 2 = 1 Then
ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.RightFooter = i
Else
ActiveSheet.PageSetup.LeftFooter = i
ActiveSheet.PageSetup.RightFooter = ""
End If
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut i, i
Next i
End Sub
在此界面直接按F5运行此宏,成功。(你可以把粗体的‘去掉并加在下一行前,运行宏看效果)
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub Test()
Dim i As Integer
For i = 1 To (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
If i Mod 2 = 1 Then
ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.RightFooter = i
Else
ActiveSheet.PageSetup.LeftFooter = i
ActiveSheet.PageSetup.RightFooter = ""
End If
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut i, i
Next i
End Sub
在此界面直接按F5运行此宏,成功。(你可以把粗体的‘去掉并加在下一行前,运行宏看效果)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询