print preview in loop
Seems to me you should pull the UserForm1.Show out of the loop.
--
Jim
"CG Rosen" wrote in message
...
Hi Group,
Having trouble to get below code to execute as I hoped. If more then one
selection is
made in the listbox I was hoping there was possible to loop true the print
previews and
printout or close the preview, and that next selection should show as
print preview.
I get only this working for one selection, if more the loop stops.
Grateful for some
hints how to get the loop running,
Best regards
CG Rosen
-----------------------------------------------------------------------------------------------------------------
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Sheets("print").Cells(6, 2) =
Sheets("Sheet3").Cells((Me.ListBox1.List(i, 4)), 1)
Sheets("print").Cells(7, 2) =
Sheets("Sheet3").Cells((Me.ListBox1.List(i, 4)), 2)
Application.Dialogs(xlDialogPrinterSetup).Show
UserForm1.Hide
Application.Visible = True
ActiveSheet.PrintPreview EnableChanges:=False
Application.Visible = False
UserForm1.Show
End If
Next i
|