rollis13, 13/11/2016 18.54:
Sì, ma, c'è l'hai una stampante installata e predefinita ? perché io non so cosa sia una "Microsoft Office Document Image Write".
Come già detto, senza "vedere" la situazione del file originale io ti ho fornito la base completa di commenti, il resto te lo devi adattare.
Ok, con una stampante "vera" non dà errore e stampa... ma ho dovuto modificare qualcosa:
Sub StampaIntestazioneDiversa()
Dim UP As Integer 'UltimaPagina
ActiveWindow.View = xlPageBreakPreview 'imposta visione Layout di Pagina
ActiveSheet.PrintOut From:=1, To:=1 'stampa la prima pagina
'Rows("2:7").EntireRow.Hidden = True 'nascondi le righe non più necessarie per l'intestazione
'
Cells(2, 1).Activate
Selection.EntireRow.Hidden = True
Cells(3, 1).Activate
Selection.EntireRow.Hidden = True
Cells(4, 1).Activate
Selection.EntireRow.Hidden = True
Cells(5, 1).Activate
Selection.EntireRow.Hidden = True
Cells(6, 1).Activate
Selection.EntireRow.Hidden = True
Cells(7, 1).Activate
Selection.EntireRow.Hidden = True
'
UP = ActiveSheet.HPageBreaks.Count + 1 'calcola il numero di pagine totali
ActiveSheet.PrintOut From:=2, To:=UP 'stampa dalla 2' alla l'ultima pagina
ActiveWindow.View = xlNormalView 'reimposta visione Normale
Rows("2:7").EntireRow.Hidden = False 'mostra le righe nascoste in precedenza
End Sub
Così funziona, ma c'è ancora un problema: la prima pagina è ok, ma, dopo aver "nascosto" le righe dalla 2 alla 7 (non erano solo la riga 2 e la 3...) riprendendo la stampa dalla pagina 2, le altre righe "salgono" più su, e la 2^ pagina (e le eventuali successive) non sono più quelle!
Spero di essermi spiegato.
Francesco.