The code I posted earlier is from the preview -- this is the code for the print. Thanks for your help.
Dim objPrintDialog As New PrintDialog
With objPrintDialog
.AllowCurrentPage = Me._Dialog_AllowCurrentPag
.AllowPrintToFile = Me._Dialog_AllowPrintToFil
.AllowSelection = Me._Dialog_AllowSelection
.AllowSomePages = Me._Dialog_AllowSomePages
Me._objPrintDoc.PrinterSet
If TotalPages > 0 Then
Me._objPrintDoc.PrinterSet
Me._objPrintDoc.PrinterSet
End If
.Document = Me._objPrintDoc
End With
Main Topics
Browse All Topics





by: NBITPosted on 2009-10-30 at 08:46:43ID: 25704110
Can i get an example of the code from both forms?