Sub 自动打印多工作表第一页()
    Dim SH As Integer
    Dim x
    Dim Y
    Dim sy
    Dim syz
    x = InputBox("请输入起始工作表名字:")
    sy = InputBox("请输入结束工作表名字:")
    Y = Sheets(x).Index
    syz = Sheets(sy).Index
    For SH = Y To syz
        Sheets(SH).Select
        Sheets(SH).PrintOut from:=1, To:=1
    Next SH
End Sub

Sub 自动打印多工作表第一页()
    Dim SH As Integer
    Dim x
    Dim Y
    Dim sy
    Dim syz
    x = InputBox("请输入起始工作表名字:")
    sy = InputBox("请输入结束工作表名字:")
    Y = Sheets(x).Index
    syz = Sheets(sy).Index
    For SH = Y To syz
        Sheets(SH).Select
        Sheets(SH).PrintOut from:=1, To:=1
    Next SH
End Sub