怎么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.怎样将设置excel2010中打印成一页

打印一页的方法如下：

1. 备原始数据，并且预览原始数据。我们发现EXCEL的打印预览功能有了明显的改善。Microsoft将所有跟打印相关的功能都集成了一起方便用户调用，并且在右侧直接给出了打印预览效果，非常人性化的设计哦。

2. 此时打印页面为2页，页面也不美观需要调整。我们先调整纸张的方向，将纸张由纵向更改成横向，直接在预览界面点击更改即可；

3. 文档内容还是超过了一页，在之前的EXCEL版本中这时候我们就需要手工去调整单元格大小了，而在2010中我们只需要一步操作即可让文档自动被编排到一页纸张中。我们点击打印预览界面选择最下方的【无缩放】按纽

4. 在填出的选项卡中选择【将所有的列调整为一页】，此时文档已经被缩排到一页纸上