關于DataReport的問題:控制打印

Question

自己做打印預覽控件来控制
datareport好像不好做:)

Answer 1

ActiveReports 就好办了这个不熟悉的

Answer 2

zeng_zhh (紫河) 
      你好      建议你用兰花报表打印控件，放弃DataReport做报表，你提的问题将不再是问题。  兰花报表打印控件是一个很cool的控件，其英文名为 OrchidPrinter control，可以在网上下载。

Answer 3

问题: 如何去掉 DataReport 上的"打印"、"导出"按钮和"缩放"下拉框?
解答: 去不掉,就挡上:
      Option Explicit
      Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
      Private Const WS_CHILD = &H40000000
      Private Const WS_DISABLED = &H8000000
      Private Const WS_VISIBLE = &H10000000
      Private Sub DataReport_Initialize()
      '...
      'CreateWindowEx 0, "Button", "被我挡上了...", WS_CHILD + WS_VISIBLE + WS_DISABLED, 2, 2, 300, 25, Me.hWnd, 0, 0, 0
      CreateWindowEx 0, "Button", "被我挡上了...", WS_CHILD + WS_VISIBLE , 2, 2, 300, 25, Me.hWnd, 0, 0, 0
      '...
      End Sub