مشاهده نسخه کامل
: M-B-M
28-09-2007, 10:34
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
دوستان عزیز این کد برای پرینت گرفتن فرم بصورت عمودی می باشد اما از خطی که سه ستاره (***)دارد خطا می گیرد لطفا مرا راهنمایی فرمایید
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
دوستان عزیز این کد برای پرینت گرفتن فرم بصورت عمودی می باشد اما از خطی که سه ستاره (***)دارد خطا می گیرد لطفا مرا راهنمایی فرمایید