ShowPrintPreviewDlg Example for Visual Basic

Dim RasterFileDlg As New LEADRasterDlgFile
Dim nRet As Integer
Private Sub PrintPreview_Click()
   RasterFileDlg.Icon =
   
   RasterFileDlg.Bitmap = LEADRasterView1.Raster.Bitmap
   nRet = RasterFileDlg.ShowPrintPreviewDlg(hWnd) 
End Sub