ShowPrintPreviewDlg Example for Visual Basic

Private Sub PrintPreview_Click()
	Dim RasterFileDlg As New LEADRasterDlgFile_U
	Dim RasterKrnDlg As New LEADRasterDlgKrn_U
	Dim nRet As Integer
	   
	RasterKrnDlg.InitDlg 0
	RasterFileDlg.Bitmap = LEAD1.Bitmap
	nRet = RasterFileDlg.ShowPrintPreviewDlg(hWnd)
	RasterKrnDlg.FreeDlg
End Sub