PDA

View Full Version : گزارش تک برگی



mahsa.admin
دوشنبه 20 اردیبهشت 1389, 07:40 صبح
باسلام
آیا امکان دارد در گزارشی که شما چندین صفحه هست با دادن دستور پرینت فقط صفحه اول چاپ شود یا فقط همان صفحه نخست در گزارش دید شود.

amirzazadeh
دوشنبه 20 اردیبهشت 1389, 08:02 صبح
باسلام
آیا امکان دارد در گزارشی که شما چندین صفحه هست با دادن دستور پرینت فقط صفحه اول چاپ شود یا فقط همان صفحه نخست در گزارش دید شود.
سلام
از اين كد در يك كامند باتون استفاده كنيد

Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

Dim stDocName As String

stDocName = "ReportName"
DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut , 1, 1

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub..............................
موفق باشيد

mahsa.admin
دوشنبه 20 اردیبهشت 1389, 11:31 صبح
با تسکر
این دستور پرینت خروجی را تک برگ میکند ایا راهی هم برای نمایش گزارش در یک صفحه وجود دارد یعنی اگر چند صفحه بود فقط صفحه اول نمایش داده شود واز اونجا اگر ctrl+p را برای دستور زدیم فقط اولین صفحه را بگیرد