- Code:
textToPrint.Append(pmtxt.Text)
PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings
If PageSetupDialog1.ShowDialog() = DialogResult.OK Then
PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
End If
Try
PrintPreviewDialog1.Document = PrintDocument1
GetNextWord(True)
PrintPreviewDialog1.ShowDialog()
Catch exc As Exception
MsgBox("Print operation failed " & vbCrLf & exc.Message)
End Try
................................................................
Hi dear guest
To see all the forums and use all facilities of site you should sign-up first.
skybuzz-team
Join the forum, it's quick and easy