EXCEL节约纸张打印,有啥打印

yisen

EXCEL节约纸张打印,有啥打印方法

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

yisen

如图

pureshadow

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

liwen

使用宏排好格式后打印
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("A11").Copy
    Range("F1").Select
    ActiveSheet.Paste
    Columns("F:F").Select
    Selection.ColumnWidth = 5.13
    Application.CutCopyMode = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$11"
        .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