printsize vba

[123xxxxx]

can any1 tell if this is correct for the print size code i no it contains
code for other functions but its the print sizes code dat im interested in
as it doesnt seem to work properly, i always get a number 1 in the combo box
that its wriiten for
the code im interested in is the Me![cmbPaperSize] = 1



' Variable to hold the default printer index.

Dim strDefaultPrinter As String



' Variable to hold the printer object.

Dim prt As Printer



' Variable to hold the report object while cycling

' through the AllReports collection.

Dim accObj As AccessObject



' Fill the printer list.

' Make sure the RowSource is empty.

Me!cmbPrinter.RowSource = ""

Me!lbxSelectReport.RowSource = ""



' Cycle through the printers installed on the machine and add them to the
combo box.

For Each prt In Application.Printers

' Use the new AddItem method to add the printer name to the combo box.

Me!cmbPrinter.AddItem prt.DeviceName

Next



' Remember the default printer.

strDefaultPrinter = Application.Printer.DeviceName



' Set the combo box to the default printer.

Me!cmbPrinter = strDefaultPrinter

Me![cmbPaperSize] = 1



' Fill the report list.

For Each accObj In CurrentProject.AllReports

Me!lbxSelectReport.AddItem accObj.Name

Next



' Set the list box to the first report.

Me!lbxSelectReport.SetFocus

Me!lbxSelectReport.ListIndex = 0