Mi dispiace disturbarvi ma non so dove battere la testa...
Ho fatto parecchie prove ma non ne vengo a capo...
Ho fatto un collage di vari codici che ho trovato nel web per creare una macro che mi dia la possibilità cliccando sul pulsante stampa di :
- Stampare il file;
- Salvare il file con il nome di 3 celle in una cartella predefinita;
- Incrementare una cella del nome di +1;
- Salvare il file di origine con l'incremento;
- Codice: Seleziona tutto
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Dim sh As Worksheet
Const cPathSalvataggio As String = "C:\Users\Utente S.Margherita\Desktop\"
Application.DisplayAlerts = False
With Me
Set sh = .Worksheets("Foglio1")
.SaveAs cPathSalvataggio & sh.Range("ZZ2999") & sh.Range("D6") & sh.Range("E6"), 56 '51 '51
End With
Application.DisplayAlerts = True
Set sh = Nothing
valore = Range("ZZ3000").Value
Range("ZZ3000").Value = valore + 1
ChDir "C:\Users\Utente S.Margherita\Desktop"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Utente S.Margherita\Desktop\Modulo Ingresso Officine.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Dove nasce il problema.
La macro fa tutto tranne che stampare la pagina attiva nel momento in cui premo perchè stampa la pagina dopo che ha fatto l'incremento dandomi in fase di stampa sul documento L'ID sbagliato.
Però nel contempo il salvataggio con nome automatico funziona.
Come cavolo devo fare per fargli stampare il nome del file giusto?
Vi ringrazio.
PS. Se mi sono spiegato da caxxo ditemi che ci riprovo.
Grazie mille va alla grande ora!!!!