电脑默认的打印机是打印标签的，
excl表格打印需要指定另一个打印机
请问宏中怎么写代码
1、选择指定打印机2、竖向打印、A4
需要加在已经录制的宏里面
Sub test240()
'
' test240 宏
'
'
Columns("B:B").ColumnWidth = 28
Columns("C:C").ColumnWidth = 16
Cells.Replace What:= _
"　　　　销售：　　　　　　　　拆单：　　　　　　　　财务：　　　　　　　　生产：　　　　　　　　仓储：　　　　　　　　", Replacement:= _
"审核： 主管： 上料： 开料： 封边： 异形： 排钻： 侧孔： 清洗： 分拣： 五金：" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
End Sub