Printing help

  • Thread starter Thread starter Office_Novice
  • Start date Start date
O

Office_Novice

I have a userform named RPTFRM w/ a text box named rptDte and a Commad
button named cb1 this is what i have so far...

Private Sub cb1_Click()
Selection.AutoFilter Field:=5, Criteria1:=rptDte.Value
VBAProject.ThisWorkbook.PrintPreview
Selection.AutoFilter
Unload Me
End Sub

Private Sub UserForm_Initialize()
Range("Headers").Select
Selection.AutoFilter
End Sub

When i step through the code it does what i want but locks up after print
preview.
I am trying to get only the information printed defined in the criteria text
box. any help would be great.
 
Couldn't duplicate the problem. Just curious about why you have the second
AutoFilter command just what looks like unloading the user form.
 
The second AutoFilter is to Undo the filter. I only need to create a report.
Thanks for looking though. it really worked for you, huh?
 
Yes, it stepped through the print preview to the AutoFilter toggle command.
I would have used AutoFilterMode = False to turn it off, but that's just me.
I substituted a cell value for the textbox value, but it shouldn't make any
difference as long as you have a value in the textbox for it to capture, it
should filter on it. You might want to slip a message box in there or do a
debug.print to check that text box value. Here is an example of how to check
it.

Private Sub cb1_Click()
MsgBox rpt.Dte.Value
Selection.AutoFilter Field:=5, Criteria1:=rptDte.Value

The message box will show what the actual text box value is, if any, before
the filter is activated.
 
I will give it a shot and let you know.

JLGWhiz said:
Yes, it stepped through the print preview to the AutoFilter toggle command.
I would have used AutoFilterMode = False to turn it off, but that's just me.
I substituted a cell value for the textbox value, but it shouldn't make any
difference as long as you have a value in the textbox for it to capture, it
should filter on it. You might want to slip a message box in there or do a
debug.print to check that text box value. Here is an example of how to check
it.

Private Sub cb1_Click()
MsgBox rpt.Dte.Value
Selection.AutoFilter Field:=5, Criteria1:=rptDte.Value

The message box will show what the actual text box value is, if any, before
the filter is activated.
Click to expand...
 
Back
Top