Problems with Print Dialog

[SonicBoomAu]

Hi all,

 

I am trying to get a print dialog to display and get the following error. I am new to printing in .Net. The Access report prints using this but doesn't display a print dialog, when I don't have "Me.PrintDialog1.ShowDialog()" in the procedure. Please help.

 

"An unhandled exception of type 'System.ArgumentException' occurred in system.windows.forms.dll

 

Additional information: PrintDialog needs a PrinterSettings object to display. Please set PrintDialog.Document (preferred) or PrintDialog.PrinterSettings."

 

Code is as follows:

 

Private Sub mnuFilePrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFilePrint.Click

Dim Acc As Access.Application

 

' Populate the print database table

Call PopPrintDB()

 

' Need to Select the Printer

Me.PrintDialog1.ShowDialog()

 

' Print a report named PrintSignOutForm

' Enable an error handler

On Error GoTo ErrorHandler

 

' Start a new instance of Access for Automation:

Acc = New Access.ApplicationClass

 

' Open the Database in shared mode:

Acc.OpenCurrentDatabase(strDatabaseName, False)

 

' Select the report name in the database window and give focus

' to the datbase window.

Acc.DoCmd.SelectObject(Access.AcObjectType.acReport, strReportName, True)

 

'Print the report

Acc.DoCmd.OpenReport(strReportName, Access.AcView.acViewNormal)

 

CleanUp:

' Quit Access and release object:

On Error Resume Next

Acc.Quit(Access.AcQuitOption.acQuitSaveNone)

System.Runtime.InteropServices.Marshal.ReleaseComObject(Acc)

Acc = Nothing

' Delete records in the PrintSignOut Table

 

Call DeletePrintedAsset()

Exit Sub

 

ErrorHandler:

MessageBox.Show("An error has occurred! " & Err.Number & ": " & Err.Description, _

"DIntTC Asset Management", MessageBoxButtons.OK, MessageBoxIcon.Error)

' Try to Quit Access due to an unexpected Error:

Resume CleanUp

End Sub

[PlausiblyDamp]

The error message pretty much tells you what you need to change - before you can display the print dialog you need to assign a PrinterSettings object to it like so

       Dim ps As New Printing.PrinterSettings
       PrintDialog1.PrinterSettings = ps
       ' Need to Select the Printer
       Me.PrintDialog1.ShowDialog()

 

also if you are making the move to .Net I would recomend you look at structured exception handling - far superior to the old vb6 on error goto... method.

[SonicBoomAu]

Thanks for that. :D

 

It now displays the print dialog but still uses the default printer not the selected one.

 

Normally I wouldn't use the error goto... method. But this was the only way I could find to print a MS Access Report off a MS website. Usually I would use the Try - Catch ex As Exception - End Try Method.

Edited October 20, 2004 by SonicBoomAu