Excel 如何更改图纸的打印方向？
如何根据现有代码中选定的大小写实现更改图纸打印方向的代码 例如，案例1至案例5如果选择，则按纵向打印；如果选择案例6，则按横向打印 我在下面附上我的代码：Excel 如何更改图纸的打印方向？,excel,vba,Excel,Vba,如何根据现有代码中选定的大小写实现更改图纸打印方向的代码 例如，案例1至案例5如果选择，则按纵向打印；如果选择案例6，则按横向打印 我在下面附上我的代码： 选项显式 专用子工作表\u选择更改（ByVal目标作为范围） Dim-IB作为变体 如果Target.Address=“$F$2”，则 IB=输入框（“键入要使用的打印区域编号”&Chr（13）和_ “可用值包括：”&Chr（13）和_ “1=第1天”和Chr（13）以及“2=第2天”和Chr（13）以及“3=第3天”和Chr（13）以及_
选项显式
专用子工作表\u选择更改（ByVal目标作为范围）
Dim-IB作为变体
如果Target.Address=“$F$2”，则
IB=输入框（“键入要使用的打印区域编号”&Chr（13）和_
“可用值包括：”&Chr（13）和_
“1=第1天”和Chr（13）以及“2=第2天”和Chr（13）以及“3=第3天”和Chr（13）以及_
“4=第4天”和Chr（13）以及“5=第5天”和Chr（13）以及“6=周/签名”_
“打印区域选择”）
如果IB=“1”，则
范围（“D4:G44”）。选择
Selection.PrintOut副本：=1，Collate:=True
ElseIf IB=“2”则
范围（“H4:J44”）。选择
Selection.PrintOut副本：=1，Collate:=True
ElseIf IB=“3”则
范围（“K4:M44”）。选择
Selection.PrintOut副本：=1，Collate:=True
ElseIf IB=“4”则
范围（“N4:P44”）。选择
Selection.PrintOut副本：=1，Collate:=True
ElseIf IB=“5”则
范围（“q4:S44”）。选择
Selection.PrintOut副本：=1，Collate:=True
ElseIf IB=“6”则
范围（“D45:T76”）。选择
Selection.PrintOut副本：=1，Collate:=True
如果结束
如果结束
端接头
打印前的专用子工作簿（取消为布尔值）
Application.EnableEvents=False
x=范围（“F2”）.值
选择案例x
案例1
范围（“d4:g44”）。选择
案例2
范围（“h4:j44”）。选择
案例3
范围（“K4:M44”）。选择
案例4
范围（“N4:P44”）。选择
案例5
范围（“Q4:S44”）。选择
案例6
范围（“D45:T76”）。选择
结束选择
Selection.PrintOut副本：=1，Collate:=True
取消=真
Application.EnableEvents=True
端接头