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

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