پرینت عمودی

Public Declare Function Escape Lib "gdi32" (ByVal hdc As Long, ByVal nEscape As Long, ByVal nCount As Long, ByVal lpInData As String, lpOutData As Any) As Long

Sub Command1_Click()
Const PORTRAIT = 1
Const LANDSCAPE = 2
Const GETSETPAPERORIENT = 30
Dim Orient As OrientStructure ***
Printer.Print ""
Orient.Orientation = LANDSCAPE
x% = Escape(Printer.hdc, GETSETPAPERORIENT, Len(Orient), "", Null)
Print x%
End Sub

دوستان عزیز این کد برای پرینت گرفتن فرم بصورت عمودی می باشد اما از خطی که سه ستاره (***)دارد خطا می گیرد لطفا مرا راهنمایی فرمایید

چرا کسی در این سابت سئوالات را جواب نمی دهد؟