Macro per salvare in pdf con excel 2003

Question

Macro per salvare in pdf con excel 2003

Anonimo

ciao a tutti,

come da oggetto vorrei poter salvare il foglio attivo di Excel 2003 direttamente in pdf, la stessa cosa nel caso fosse già installata una stampante virtuale "pdf creator" però non è dato sapere il suo percorso corretto visto che più colleghi con pc diversi dovranno usare questo foglio

grazie mille

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

ciao a tutti,

come da oggetto vorrei poter salvare il foglio attivo di Excel 2003 direttamente in pdf, la stessa cosa nel caso fosse già installata una stampante virtuale "pdf creator" però non è dato sapere il suo percorso corretto visto che più colleghi con pc diversi dovranno usare questo foglio

grazie mille

Questa *stampa* con PDCreator indipendentemente dal suo percorso(se PDFCreator è installato sul pc):

Public Sub m()

Dim s As String

Dim lng As Long

'salvo il nome della stampante predefinita

s = ActivePrinter

On Error Resume Next

'ciclo da 0 a 30(o anche più)

For lng = 0 To 30

'se ho trovato la stampante

If InStr(ActivePrinter, _

"PDFCreator") Then

'esco dal ciclo

Exit For

Else

'altrimenti provo ad assegnare

'una stampante valida

ActivePrinter = _

"PDFCreator su Ne" & _

Format(lng, "00") & ":"

End If

'stampo

End If

'ripristino la vecchia stampante

ActivePrinter = s

End Sub

Questa invece *salva* in formato .PDF il Foglio1 del file che contiene il codice(valido pr Excel 2007/2010 aggiornati):

Public Sub m()

Dim sPath As String

Dim sNome As String

Dim lng As Long

Application.DisplayAlerts = False

On Error Resume Next

With ThisWorkbook

lng = InStr(.Name, ".")

sPath = .Path

sNome = Mid(.Name, 1, lng - 1)

.Worksheets("Foglio1").ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=sPath & "" & sNome, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End With

Application.DisplayAlerts = True

End Sub

Entrambe da adattare.

0 commenti

3 risposte aggiuntive

Answer 1

Anonimo

ops... ecco perchè non trovavo il messaggio che avevo scritto...

lo avevo scritto in un altra discussione.

le mie scuse

0 commenti

Answer 2

Anonimo

Ti ho risposto qui.

Evita, per quanto possibile, di duplicare le richieste.

Grazie

David

0 commenti

Answer 3

Buonasera,

facendo un collage di varie cose sono riuscito a far funzionale la macro al 90%, ciò che manca è solo l'incollare nel corpo del messaggio le celle selezionate.

Sub Macro1()

Range("a8").Select

Selection.End(xlDown).Select

ultima = ActiveCell.Row

Range("a1:h" & ultima).Select

ActiveSheet.PageSetup.PrintArea = "a1:h" & ultima

Dim sPath As String

Dim sNome As String

Dim lng As Long

Application.DisplayAlerts = False

On Error Resume Next

With ThisWorkbook

lng = InStr(.Name, ".")

sPath = .Path

sNome = Mid(.Name, 1, lng - 1)

.Worksheets("Foglio1").ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=sPath & "" & sNome, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End With

Application.DisplayAlerts = True

Dim OutApp As Object

Dim OutMail As Object

Dim nomefiledaallegare As String

Set OutApp = CreateObject("Outlook.Application")

OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = "******@test.it"

.CC = ""

.BCC = ""

.Subject = "TEST"

.BodyFormat = olFormatHTML

HTMLbody = "<html><head></head><body>test</body></html>"

.Attachments.Add "percorso file"

.Display

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub