excel表格怎么只打单页

1.如何设置能只打印Excel单页码的文件?

excel本身没这个功能。只能手动一页页打印，或通过宏实现。

通过“宏”来实现奇偶打印的办法：

在EXCEL中新建一个宏，取名为"printpage"，点击“创建”，代码如下：

Dim StrTS As String, StrPage As String, StrPage1 As String, i As Integer

Dim Pages As Long, PrintFlag As Integer, Cho As Integer

Dim Aa As Integer, Bb As String, Cc As String, myPrompt1 As String

myPrompt1 = "在打印时发生错误，请检查你的打印机设置"

Pages = ExecuteExcel4Macro("Get.Document(50)"） '统计总页数

StrTS = "请输入需要打印的起始页及结束页，然后点击确定" + Chr(13) + Chr(10) + "您输入的起始页将决定奇偶页" + Chr(13) + Chr(10) + "例如：1-31"

StrPage1 = "1-" & Pages

PrintFlag = 1

On Error Resume Next

Do While PrintFlag = 1

StrPage = InputBox$(StrTS， "输入页码范围[奇偶页打印]"， StrPage1)

If Trim$(StrPage) <> "" Then

'判断输入页码的合法性

Aa = InStr(StrPage, "-")

If Aa = 0 Or Aa = 1 Or Aa = Len(Trim(StrPage)) Then

MsgBox "对不起，输入的页码有误"

Exit Sub

Else

Bb = Val(Left$(StrPage, Aa - 1))

Cc = Val(Right$(StrPage, Len(Trim(StrPage)) - Aa))

If IsNumeric(Bb) And IsNumeric(Cc) Then

If Bb > Cc Then

MsgBox "对不起，您输入的起始页大于结束页，打印取消！"

Exit Sub

End If

If Cc > Pages Then Cc = Pages

If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序

MsgBox "Microsoft Excel 未发现任何可以打印的内容"， 0 + 48

Exit Sub

End If

If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出

ActiveSheet.PrintOut

If Err.Number = 1004 Then

MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误

End If

Exit Sub

End If

For i = Int(Bb) To Int(Cc) Step 2 '设置循环，打印奇数页或偶数页

ActiveSheet.PrintOut From:=i, To:=i

If Err.Number = 1004 Then

MsgBox myPrompt1, 0 + 48

Exit Sub

End If

Next i

Cho = MsgBox（"是否续继打印？"， vbYesNo + vbQuestion + vbDefaultButton1， "提示"）

2.如何在Excel里实现打印指定页

Sub 有印章打印（）

Worksheets("sheet1").PrintOut From:=1, To:=1, Copies:=3, Collate _

:=True

Worksheets("sheet1").PrintOut From:=3, To:=3, Copies:=3, Collate _

:=True

Worksheets("sheet1").PrintOut From:=12, To:=12, Copies:=3, Collate _

:=True

Worksheets("sheet1").PrintOut From:=28, To:=28, Copies:=1, Collate _

:=True

End Sub

在窗体增加一个按钮连接到宏，OK，无印章打印可参照以上处理！

3.请问如何在excel中实现只打印奇数页或者偶数页

Sub PrintOddPage() Dim TotalPg As Integer TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)") For i = 1 To TotalPg Step 2 ActiveSheet.PrintOut From:=i, To:=i Next End Sub 这个是宏。

是打印奇数页的。

把For i = 1 To TotalPg Step 2改为For i = 2 To TotalPg Step 2就变为打印偶数页了。