[Amin_Mansouri]

2 تا تابع زیر 2 کارو انجام میدن یاز به توضیح نیست اسم تابع ها مشخصه در اخرش هم یه سورس کد پرینت کردن حرفه ای هم پیسوت کردم برات
من نمیدونم چطوری و با چه روش پرینت میکنی اما تابع زیر بهت کمک میکنه

کد:

Dim CRReport As CRPEAuto.Report



Dim CRWindow As CRPEAuto.Window



Dim CRView As CRPEAuto.View



Dim CRApp As CRPEAuto.Application



Public ReportFileName As String



Public Title As String



Public Sub Preview()



On Error GoTo ErrMsg



Set CRApp = CreateObject("crystal.crpe.application")



Set CRReport = CRApp.OpenReport(App.Path + "\report\" + ReportFileName)



CRReport.DiscardSavedData



Set CRView = CRReport.Preview(Title)



Set CRWindow = CRView.Parent



CRWindow.ControlsVisible = True



Exit Sub



ErrMsg:



MsgBox CStr(Err.Number) + " : " + Err.Description



End Sub



Public Sub PrintToPrinter()



On Error GoTo ErrMsg



Set CRApp = CreateObject("crystal.crpe.application")



Set CRReport = CRApp.OpenReport(App.Path + "\report\" + ReportFileName)



CRReport.DiscardSavedData 'reset all the data in report



CRReport.PrintOut



Exit Sub

سورس 2 :
  print (www.parsicoders.com).rar (اندازه 56.91 KB / تعداد دانلود: 13)