questo mi e' molto utile x stamp su stamp virtuale che crea file .pdf.
- Codice: Seleziona tutto
Sub stampa1()
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
ActiveSheet.PageSetup.PrintArea = "$b$2:$s$" & 58 * [s1]
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("d2").Select
End Sub
ora pero' sempre con lo stesso metodo vorrei poter
scrivere nella macro il nome dei fogli che voglio stampare
in modo da poter stampare anche i grafici.
come posso modif tale macro ?
inoltre oltre a scrivere il nome del foglio vorrei poter scrivere
x ogni fogli excell , anche gli estremi da stampare.
ringrazio in anticipo
http://rapidshare.com/files/406164952/Copia_di_luga.fibonacci.zip