Office中国论坛/Access中国论坛

标题: EXCEL节约纸张打印,有啥打印 [打印本页]

作者: yisen 时间: 2010-3-13 14:54
标题: EXCEL节约纸张打印,有啥打印
EXCEL节约纸张打印,有啥打印方法

一般情况下,一张A4纸只能打1至46行
能不能通过其他设置.
一张A4纸能打左边1至46 右边47至92

作者: yisen 时间: 2010-3-13 14:57
如图

作者: pureshadow 时间: 2010-3-13 17:42
打印机里的设置，一张纸上打两页
基本上只要是本世纪生产的非针打打印机都有这个功能，但各机的设置略有差异，楼主自己找一下，如果找不到要以咨询打印机供应商。

作者: liwen 时间: 2010-3-13 18:13
使用宏排好格式后打印
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制，时间: 2010-3-13
'

'
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Name = "T"
Range("A1

1").Copy
Range("F1").Select
ActiveSheet.Paste
Columns("F:F").Select
Selection.ColumnWidth = 5.13
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1

1"
.PrintTitleColumns = ""
End With
i = 1
Do While i * 46 + 2 < Range("A65536").End(xlUp).Row
Range("A" & i * 46 + 2 & "

" & (i + 1) * 46 + 1).Select
Selection.Cut
Range("F" & (i - 1) * 46 + 2).Select
ActiveSheet.Paste
Rows(i * 46 + 2 & ":" & (i + 1) * 46 + 1).Select
Selection.Delete Shift:=xlUp
i = i + 1
Loop
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("T").Select
SendKeys "~"
ActiveWindow.SelectedSheets.Delete

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)