Excel userform - print using a date range

[PANTECH]

I have frmInventory which has a command button "PRINT", I need help with code to make that button request a date range and then only print the records in that date range. Example print records starting from date range 01/01/2013 to 04/16/2013.

Please see attachment, Thank you!

[Norie]

See the attached file.

[PANTECH]

The drop down worked for the date range but it did not print. Please advise as to what is missing to make the rows print.

Thank you!

[Norie]

I commented out the line of code that actually prints as I don't want to end up with a bunch of print outs I don't want.

[PANTECH]

Keep getting error '424' object required.
Problem area
Set rngPrintArea = .Range("A" & ComboBox1.ListIndex + 2, .Range("I" & ComboBox2.ListIndex + ComboBox1.ListIndex + 2))
Should I change ComboBox1 etc to the actual names cboDepartment and cboInitials?

[Norie]

Are you using the file I uploaded?

[PANTECH]

No, I can't we are restricted from downloading so I did a cut and paste from your Print form into my frmInventory.

[Norie]

Did you copy the form I added?

The code you say is erroring is intended for that form.

[PANTECH]

Yes, I copied your form and still get the same error. Should I change ComboBox1 etc to the actual names cboDepartment and cboInitials?

[Norie]

There are no controls with those names on the form in the workbook I posted.

Where did you put the code you copied?

The easiest way to copy a userform, and it's code, to another workbook is to open the workbook with the form and
in the Project Explorer drag the form to the workbook you want to copy it to.

[PANTECH]

The working userform is on the network drive which I don't have rights to copy to so I have a backup on my H: drive which is where your frmPrint is located. Below is where the problem seemd to be when I debug.
Set rngPrintArea = .Range("A" & ComboBox1.ListIndex + 2, .Range("I" & ComboBox2.ListIndex + ComboBox1.ListIndex + 2))
What if I change this to...
Set rngPrintArea = .Range("A" & CboDepartment.ListIndex + 2, .Range("I" & CboInitials.ListIndex + ComboBox1.ListIndex + 2))