print preview in loop
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 |
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 |
All times are GMT +1. The time now is 03:03 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com