Bonjour,
Je n'ai pas trouve de reponse dans les anciennes conversations. Je souhaite lancer une impression dans une boucle For d'une macro. L'impression marche pour la premiere incrementation de la boucle mais apres celle ci, la macro s'arrete et ne continue pas. Comment puis-je faire ? Le mieux serait de pouvoir lancer l'impression et que la macro continue sans se soucier de savoir si le document a ete fini d'imprimer.
Merci d'avance
Sub Print_Schools()
'
' Print_Schools Macro
'
For row_nb = 2 To lastrow
Refresh 'Run the macro Refresh
Sheets("Detail").Select
Range("B1:K" & lastrow + 1).Select 'Select the printing area
Dim myRange As String
myRange = Selection.Address
ActiveSheet.PageSetup.PrintArea = myRange
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" 'Print
Next row_nb
End Sub
Je n'ai pas trouve de reponse dans les anciennes conversations. Je souhaite lancer une impression dans une boucle For d'une macro. L'impression marche pour la premiere incrementation de la boucle mais apres celle ci, la macro s'arrete et ne continue pas. Comment puis-je faire ? Le mieux serait de pouvoir lancer l'impression et que la macro continue sans se soucier de savoir si le document a ete fini d'imprimer.
Merci d'avance
Sub Print_Schools()
'
' Print_Schools Macro
'
For row_nb = 2 To lastrow
Refresh 'Run the macro Refresh
Sheets("Detail").Select
Range("B1:K" & lastrow + 1).Select 'Select the printing area
Dim myRange As String
myRange = Selection.Address
ActiveSheet.PageSetup.PrintArea = myRange
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" 'Print
Next row_nb
End Sub