ダイアログ設定をプレビューに反映させるには？

しむら 2003-11-14 05:06:26 No: 109955

VB.NETを使っています。

PageSetupDialog.ShowDialog()を実行した後
marginや用紙方向の設定を変えて、プレヴューを表示
させたいのですが設定を反映させることができません。

どのようにかけば反映させることができるのでしょうか？
その部分を乗せておきます。どうかよろしくお願いします。

'Viewerにプリント設定ボタン追加
Dim btn As New DataDynamics.ActiveReports.Toolbar.Button
  btn.Caption = "Margin..."
  btn.ImageIndex = 1
  btn.ButtonStyle=DataDynamics.ActiveReports.Toolbar.ButtonStyle.Text
  btn.Id = 333
  Me.Viewer1.Toolbar.Tools.Insert(2, btn)

Dim psDlg As New PageSetupDialog
Dim ps As New PageSettings
  Select Case e.Tool.Id
    Case 333
      '初期設定
      ps.Margins.Left = 50
      ps.Margins.Right = 50
      ps.Margins.Top = 50
      ps.Margins.Bottom = 50
      ps.Landscape = True

      psDlg.PageSettings = ps
      psDlg.ShowDialog()
      ?

End Select