如果单元格内容相等使用宏自动打印并设置打印的格式

Deepness

如果Gets工作表中的G13 单元格="清屏"
则打印数据表1中的内容,但是设置打印属性时总是出错,怎么办?
望大佬们指点
Sub 打印()

'
If Sheets("Gets").Range("G13") = "清屏" Then
        Worksheets("数据1").PageSetup
        Worksheets("数据1").Zoom = False
        Worksheets("数据1").FitToPagesWide = 1     '自动适应页宽
        Worksheets("数据1").FitToPagesTall = 1     '自动适应页高
        Worksheets("数据1").CenterHorizontally = True  '水平居中
        Worksheets("数据1").CenterVertically = True    '垂直居中
        Worksheets("数据1").Orientation = xlLandscape  '纸张方向横向
        Worksheets("数据1").PageSetup.PrintArea = "$A$1: $CW$86"
        Worksheets("数据1").PrintOut
End If

End Sub