پرینت عمودی
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
دوستان عزیز این کد برای پرینت گرفتن فرم بصورت عمودی می باشد اما از خطی که سه ستاره (***)دارد خطا می گیرد لطفا مرا راهنمایی فرمایید
جواب بصورت نقل قول