- Codice: Seleziona tutto
Sub STAMPA()
'
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
'stampa il range impostato in s1
'If [s1] <= 0 Then Exit Sub
Dim max
max = Range("NUM_DATA").Value
For i = 1 To max
Range("SCELTA").Value = Range("DATA").Cells(i, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
Ho pensato di modificarla in questo modo:
- Codice: Seleziona tutto
Sub STAMPA()
'
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
'stampa il range impostato in s1
'If [s1] <= 0 Then Exit Sub
Dim max
Dim max2
max = Range("NUM_DATA").Value
For i = 1 To max
Range("SCELTA").Value = Range("DATA").Cells(i, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
max2 = Range("NUM_NUMERO").Value
For i = 1 To max2
Range("SCELTA2").Value = Range("NUMERO").Cells(i, 1).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
In pratica avevo bisogno che mi stampava su 10 fogli 2 dati diversi, purtroppo come ho pensato io di modificarla mi stampa i 2 dati in questo modo: il primo gruppo di di dati sui primi 10 fogli e il secondo gruppo di dati su altri 10 fogli.
Spero di essere stato chiaro e con l'occasione auguro a tutti un buon pomeriggio.