1.excel电子表格里面怎么实现奇偶页打印?
如果你的打印机支持双面打印,直接文件,打印,整个工作簿,然后在打印机属性里选择双面打印就可以了。
如果不是,得用宏。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub test()Dim i, j As Integeri = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)For j = 1 To i Step 2ThisWorkbook.PrintOut i, iNext jMsgBox "请将纸反放后点OK,以打印偶数页", vbOKOnly, "Hi"For j = 2 To i Step 2ThisWorkbook.PrintOut i, iNext jEnd Sub在此界面直接按F5运行此宏,OK。
2.win10系统怎么设置奇偶页打印
win10系统打印机无法打印解决方法一:
1、请确保打印机已打开并连接到你的电脑。
2、如果仍然无法工作,请尝试运行 “打印疑难解答”。
3、如果仍然有问题,你的打印机可能需要新的驱动程序。
4、打开 “开始”菜单, 输入 “设备和打印机”, 从结果列表中选择它,然后选择你的打印机。然后在屏幕顶部选择 “删除设备”, 然后重新安装你的打印机。
5、如果Windows无法自动找到新的驱动程序,请在设备制造商网站上查找一个驱动程序并按照其安装说明进行操作。
win10系统打印机无法打印解决方法二:
右击我的电脑,管理,服务和应用程序,双击服务,找到Spooler Print Spooler或者是Print Spooler以及server双击,看是否禁用了这些服务,把它设置为自动。
3.Excel中如何实现设置奇、偶页打印
1、第一种写法:
Sub PrintRL()
'代码作用:在打印EXCEL文件时连续打印奇偶页
'当为奇数时页脚设在右边,为偶时设在左边并打印
'By redwin for yan
'2007-4-16
Dim Numb As Integer
On Error Resume Next
'得到当前工作簿的打印页数Numb
Numb = ExecuteExcel4Macro("Get.Document(50)")
'MsgBox Numb
With ActiveSheet.PageSetup
For i = 1 To Numb Step 1
If i Mod 2 = 1 Then
.LeftFooter = ""
.RightFooter = "第 &P 页,共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Else
.RightFooter = ""
.LeftFooter = "第 &P 页,共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
End If
Next i
End With
End Sub
2、第二种写法:
Sub PrintRL()
'代码作用:在打印EXCEL文件时分开打印奇偶页
'当为奇数时页码页脚设在右边,为偶时设在左边
'By redwin for yan
'2007-4-16
Dim Numb As Integer
Dim Numb1 As Integer
On Error Resume Next
'得到当前工作簿的打印页数Numb
Numb = ExecuteExcel4Macro("Get.Document(50)")
'MsgBox Numb
With ActiveSheet.PageSetup
'先打印奇数页;考虑到放纸习惯,先设置好第一张的页码问题
If Numb Mod 2 <> 1 Then
Numb1 = Numb - 1
Else
Numb1 = Numb
End If
For i = Numb1 To 1 Step -2
.LeftFooter = ""
.RightFooter = "第 &P 页,共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Next i
MsgBox "注意:奇数页已打印完毕,下面将打印偶数页,请注意放纸,确定后便开始喽!", _
vbInformation, "双面打印,将节约进行到底:)"
'再打印偶数页
For i = 2 To Numb Step 2
.RightFooter = ""
.LeftFooter = "第 &P 页,共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Next i
End With
End Sub
4.怎么在EXCEL中分奇偶页打印
1、第一种写法:Sub PrintRL()'代码作用:在打印EXCEL文件时连续打印奇偶页'当为奇数时页脚设在右边,为偶时设在左边并打印'By redwin for yan'2007-4-16Dim Numb As IntegerOn Error Resume Next'得到当前工作簿的打印页数NumbNumb = ExecuteExcel4Macro("Get.Document(50)")'MsgBox NumbWith ActiveSheet.PageSetupFor i = 1 To Numb Step 1If i Mod 2 = 1 Then.LeftFooter = "".RightFooter = "第 &P 页,共 &N 页"ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iElse.RightFooter = "".LeftFooter = "第 &P 页,共 &N 页"ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iEnd IfNext iEnd WithEnd Sub2、第二种写法:Sub PrintRL()'代码作用:在打印EXCEL文件时分开打印奇偶页'当为奇数时页码页脚设在右边,为偶时设在左边'By redwin for yan'2007-4-16Dim Numb As IntegerDim Numb1 As IntegerOn Error Resume Next'得到当前工作簿的打印页数NumbNumb = ExecuteExcel4Macro("Get.Document(50)")'MsgBox NumbWith ActiveSheet.PageSetup'先打印奇数页;考虑到放纸习惯,先设置好第一张的页码问题If Numb Mod 2 <> 1 ThenNumb1 = Numb - 1ElseNumb1 = NumbEnd IfFor i = Numb1 To 1 Step -2.LeftFooter = "".RightFooter = "第 &P 页,共 &N 页"ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iNext iMsgBox "注意:奇数页已打印完毕,下面将打印偶数页,请注意放纸,确定后便开始喽!", _vbInformation, "双面打印,将节约进行到底:)"'再打印偶数页For i = 2 To Numb Step 2.RightFooter = "".LeftFooter = "第 &P 页,共 &N 页"ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iNext iEnd WithEnd Sub。
5.在EXCEL中怎样设置奇偶页打印
用宏。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub dayin()
Dim x, i As Integer
x = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "现在打印奇数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "现在打印偶数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i
Next i
End Sub
在此界面下直接按F5运行此宏,解决问题。
转载请注明出处windows之家 » WIN10系统中excel如何打印奇偶页