Buongiorno,
sono nuovo del forum e premetto che non sono un vate della programmazione, anzi..

veniamo al problema..

Ho inserito nel mio foglio di lavoro un pulsante abbinato ad una macro che mi consente di stampare il foglio di lavoro medesimo:

Sub stampa_PDF()
'
' stampa_PDF Macro
' Macro registrata il 21/02/2011 da Sala
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1 _
, ActivePrinter:="Acrobat Distiller" _
, Collate:=True
End Sub

e questa funziona, ma se io volessi stampare SOLO UN DETERMINATO NUMERO DI PAGINE di questo foglio di lavoro? diciamo che questo numero di pagine lo indico alla cella "A17"..

COME FACCIO A DIRE ALLA MACRO DI STAMPARE SOLO IL NUMERO DI PAGINE INDICATO DALLA CELLA "A17"?

GRAZIE A TUTTI!

LUCA

salve
prova così:

Sub stampaPagine()
Npag = Range("a17").Value
ActiveSheet.PrintOut From:=1, To:=Npag, Copies:=1, ActivePrinter:="Acrobat Distiller", _
Collate:=True
End Sub

saluti
Giap

---

Non è vero funziona..era sbagliato il formato...SCUSA

Approfitto ancora della tua saggezza...

Ora, utilizzando questo sistema, è venuto fuori un altro problema...

io nell'ultima pagina che stampo devo inserire una firma elettronica (normalissima JPG)

E' possibile dargli delle coordinate pescandole da una cella cosi come per il numero di pagine?

il codice che utilizzo ora è...

Range("A1:J2").Select
ActiveSheet.Pictures.Insert( _
"\\Server2009\SI_lab\Online\Registrazioni\Laboratorio\Firme digitali\Pippo Ezio.jpg" _
).Select
Selection.ShapeRange.IncrementLeft 87.75
Selection.ShapeRange.IncrementTop 770.5
ActiveWindow.SmallScroll Down:=6
Selection.ShapeRange.IncrementLeft -12#
Selection.ShapeRange.IncrementTop -2.25
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Name = "pippo"