Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] stampare un file in PDF con una macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: [EXCEL] stampare un file in PDF con una macro

Postdi emanuelei » 20/10/14 22:28

sei un genio!
Uso la stessa versione di quando hai creato la macro (2010) ma ora senza le modifiche che mi hai suggerito non funzionava...
GRAZIE!!
emanuelei
Utente Junior
 
Post: 21
Iscritto il: 27/10/12 15:51

Sponsor
 

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 14/12/15 11:47

salve e ancora grazie per gli aiuti precedenti.
Ho un problemino, avrei bisogno di creare ciclo per l'estrazione dei vari record del database e stamparli in pdf.
Premetto che ho problemi con le librerie di pdfcreator e non capisco ancora perchè. ho Win7 e office2010 .
Singolarmente ciascuna macro funziona bene INIZIALIZZA,ESTRAI E STAMPA IN PDF (con associazione del nome nella cartella specificata presa dalla cella corretta). vorrei associare tutto ad una macro con la possibilità di dire io da quale record a quale record effettuare la stampa. Al momento sono costretto a stampare ogni record singolarmente utilizzando una macro che con la funzione CALL mi collega tutte e 3 le precedenti. Potete aiutarmi? :D :D

Grazie in anticipo per il vostro tempo.
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Re: [EXCEL] stampare un file in PDF con una macro

Postdi Flash30005 » 15/12/15 05:12

Si ma se non pubblichi le macro funzionanti e la sequenza che vorresti avere come facciamo a dirti dove inserire la Call ?

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 15/12/15 10:10

ciao non le ho pubblicate perche non sapevo cosa di preciso vi serviva ,provvedo subito :

Sub STAMPA()
'
' STAMPA Macro
'Sub salvainpdf()
'
' salvainpdf Macro
'
Dim Path, Nome, MioNome

Path = "C:\Users\Administrator\Documents\xxxxx\VISITE ISPETTIVE FPC\FPC 2015\BISCEGLIE\MISCELE\Miscele Fpc Bisceglie\Schede mix qual. FPC"
Nome = "BISCEGLIE " & Range("DO6").Value
MioNome = Path & "\" & Nome & ".pdf"
'
Sheets("SCHEDA MIX").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MioNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

'

Sub finale()
Call INIZIALIZZA
Call Estrai_MIX
Call STAMPA


End Sub

devo inviare anche le singole macro? o e' sufficente ?

ciao e grazie dell'aiuto
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 16/12/15 11:11

:undecided: :undecided: :undecided: :undecided:
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Re: [EXCEL] stampare un file in PDF con una macro

Postdi Anthony47 » 17/12/15 01:04

Io mi sono astenuto perche' non ho capito granche' del problema posto.
Ho un problemino, avrei bisogno di creare ciclo per l'estrazione dei vari record del database e stamparli in pdf.
Parliamo di Excel, non di un db, vero?

Premetto che ho problemi con le librerie di pdfcreator e non capisco ancora perchè. ho Win7 e office2010 .
Che c'entra pdfcreator, visto che XL2010 ha di suo la possibilita' di salvare in formato pdf?

vorrei associare tutto ad una macro con la possibilità di dire io da quale record a quale record effettuare la stampa. Al momento sono costretto a stampare ogni record singolarmente utilizzando una macro che con la funzione CALL mi collega tutte e 3 le precedenti.
La Sub STAMPA che hai pubblicato vedo che salva il contenuto di Sheets("SCHEDA MIX") in formato pdf in una certa cartella col nome file definito in DO6 del foglio corrente.

Da quanto scritto insomma non ci sono gli elementi per interpretare meglio la richiesta di stampare da un record ad un altro, perche' non sappiamo come sono strutturati i tuoi file.
Devi quindi essere piu' chiaro su dove sono localizzate e come sono strutturate le informazioni su cui dobbiamo poi basare la macro.

Insisti che ci riusciamo!

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 18/12/15 17:55

allora anthony spiego mi spiego meglio forse sono stato troppo precipitoso e non ho descritto bene il mio problema.

ho due file :

(1) PRELIEVI

(2) SCHEDE MIX

entrambi i file hanno due problemi distinti

1° file , ha un problema che ho parzialmente risolto cambiando pc (protatile di casa) , che stranamente con le stesse caratteristiche (WIN7+Office2010) funziona benissimo(estrae tutti i report "da" ,"a" ; stampa in pdf e archivia nella cartella da me indicata).Al pc del lavoro mi dice invece che la manca la libreria, entro a correggere con la spunta su "MANCA" e mi da errore "runtime 429 Active X non è in grado ecc. ecc.

2° file di cui parlo nel primo topic funziona bene ,ma mi costringe a estrarre il singolo report e stamparlo in pdf singolarmente , io invece volevo poter fare anche qui l'avvio automatico dell'estrazione e stampa di tutti i record con il "da" , "a" o qualcosa di simile, con la speranza che anche qui non mi dia il conflitto delle librerie.

mi preme risolvere di piu il secondo problema.

il percorso del file è : C:\Users\Administrator\Documents\azienda\VISITE ISPETTIVE FPC\FPC 2015\impianto\MISCELE\CONTROLLI FPC
e il nome del file è : DATABASE MISCELE FPS IMPIANTO

OVVIAMENTE PARLIAMO DI EXCEL PER ENTRAMBI I FILE

se ho mancato in qualcosa chieditemi pure.

ciao e grazie a tutti aspetto vostre notizie
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Re: [EXCEL] stampare un file in PDF con una macro

Postdi Anthony47 » 19/12/15 21:35

Se su un Pc ti manca una libreria allora la devi installare (nel Pc), non basta "spuntare" la voce "Manca"! Quale e' questa libreria mancante?

2° file di cui parlo nel primo topic funziona bene ,ma mi costringe a estrarre il singolo report e stamparlo in pdf singolarmente , io invece volevo poter fare anche qui l'avvio automatico dell'estrazione e stampa di tutti i record con il "da" , "a" o qualcosa di simile
In una discussione che ha 87 messaggi far riferimento al "file di cui parlo nel primo topic" non si traduce in niente di certo (e comunque ti aspetti mica che vada a leggere i tuoi messaggi dell'anno scorso per capire di cosa si parla, vero?); quindi io continuo a non capire come potrei fare un'estrazione "da" "a".
Probabilmente un passo avanti si potrebbe fare se pubblichi un esempio di file su cui lavorano le macro INIZIALIZZA e Estrai_MIX, insieme col listato delle macro.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 21/12/15 09:18

OK Anthony , ho copiato l'intera progettazione delle macro spero riesci ora a vederci piu chiaro :)




[color=#40FF40]'questa macro pulisce il foglio da tutti i dati compilati
Sub INIZIALIZZA()
Dim Oggi As Date
Oggi = Now
'ActiveSheet.Unprotect

Worksheets("scheda mix").Select
Range("er64:er246").Value = ""
Worksheets("scheda mix").Select
Range("eI3").Value = ""

'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Public Function CercainDB(SchedaDB As Integer) As Integer
Dim n_MAX
Dim rigaDB
'Dim SchedaDB
Dim Valore
Dim TrovatoinDB As Boolean
Sheets("Database Mix").Select
n_MAX = Range("a2").Value
CercainDB = 0
'Ricerca il numero scheda nella colonna Axx ogni 5 righe
For i = 2 To n_MAX * 5 - 3 Step 1
rigaDB = i
Valore = Sheets("Database mix").Cells(rigaDB, 1).Value
If Not (Valore <> SchedaDB) Then
TrovatoinDB = True
Exit For
End If
Next

'Se non ha trovato il numero scheda visualizza il messaggio
If Not TrovatoinDB Then
MsgBox ("Numero scheda non trovato")
Sheets("scheda mix").Select
End
End If
CercainDB = rigaDB
End Function
Sub Estrai_MIX()
Dim riga
Dim n_MAX
Dim scheda
Dim Valore
Dim Trovato As Boolean

'Se il campo scheda in ORIGINALE è vuoto chiede il numero scheda da estrarre dal DB
'per compilare la scheda imapsti
nscheda:
If Sheets("scheda mix").Range("ei3").Value = "" Then
Sheets("scheda mix").Range("ei3").Value = InputBox("Inserire il numero scheda")
End If
scheda = Sheets("scheda mix").Range("ei3").Value

Sheets("Database mix").Select
n_MAX = Range("a2").Value

'Ricerca il numero scheda nella colonna Axx ogni 5 righe
For i = 2 To n_MAX * 5 - 3 Step 1
riga = i
Valore = Cells(riga, 1).Value
If Not (Valore <> scheda) Then
Trovato = True
Exit For
End If
Next

'Se non ha trovato il numero scheda visualizza il messaggio
If Not Trovato Then
MsgBox ("Numero scheda non trovato")
Sheets("scheda mix").Select
GoTo Fine_Estrai
End If

'copia dati da SCHEDA MIX a Database



Sheets("scheda mix").Range("er65").Value = Sheets("database mix").Cells(riga, 2).Value
Sheets("scheda mix").Range("er66").Value = Sheets("database mix").Cells(riga, 3).Value
Sheets("scheda mix").Range("er67").Value = Sheets("database mix").Cells(riga, 4).Value
Sheets("scheda mix").Range("er68").Value = Sheets("database mix").Cells(riga, 5).Value
Sheets("scheda mix").Range("er69").Value = Sheets("database mix").Cells(riga, 6).Value
Sheets("scheda mix").Range("er70").Value = Sheets("database mix").Cells(riga, 7).Value
Sheets("scheda mix").Range("er71").Value = Sheets("database mix").Cells(riga, 8).Value
Sheets("scheda mix").Range("er72").Value = Sheets("database mix").Cells(riga, 9).Value
Sheets("scheda mix").Range("er73").Value = Sheets("database mix").Cells(riga, 10).Value
Sheets("scheda mix").Range("er74").Value = Sheets("database mix").Cells(riga, 11).Value
Sheets("scheda mix").Range("er75").Value = Sheets("database mix").Cells(riga, 12).Value
Sheets("scheda mix").Range("er76").Value = Sheets("database mix").Cells(riga, 13).Value
Sheets("scheda mix").Range("er77").Value = Sheets("database mix").Cells(riga, 14).Value
Sheets("scheda mix").Range("er78").Value = Sheets("database mix").Cells(riga, 15).Value
Sheets("scheda mix").Range("er79").Value = Sheets("database mix").Cells(riga, 16).Value
Sheets("scheda mix").Range("er80").Value = Sheets("database mix").Cells(riga, 17).Value
Sheets("scheda mix").Range("er81").Value = Sheets("database mix").Cells(riga, 18).Value
Sheets("scheda mix").Range("er82").Value = Sheets("database mix").Cells(riga, 19).Value
Sheets("scheda mix").Range("er83").Value = Sheets("database mix").Cells(riga, 20).Value
Sheets("scheda mix").Range("er84").Value = Sheets("database mix").Cells(riga, 21).Value
Sheets("scheda mix").Range("er85").Value = Sheets("database mix").Cells(riga, 22).Value
Sheets("scheda mix").Range("er86").Value = Sheets("database mix").Cells(riga, 23).Value
Sheets("scheda mix").Range("er87").Value = Sheets("database mix").Cells(riga, 24).Value
Sheets("scheda mix").Range("er88").Value = Sheets("database mix").Cells(riga, 25).Value
Sheets("scheda mix").Range("er89").Value = Sheets("database mix").Cells(riga, 26).Value
Sheets("scheda mix").Range("er90").Value = Sheets("database mix").Cells(riga, 27).Value
Sheets("scheda mix").Range("er91").Value = Sheets("database mix").Cells(riga, 28).Value
Sheets("scheda mix").Range("er92").Value = Sheets("database mix").Cells(riga, 29).Value
Sheets("scheda mix").Range("er93").Value = Sheets("database mix").Cells(riga, 30).Value
Sheets("scheda mix").Range("er94").Value = Sheets("database mix").Cells(riga, 31).Value
Sheets("scheda mix").Range("er95").Value = Sheets("database mix").Cells(riga, 32).Value
Sheets("scheda mix").Range("er96").Value = Sheets("database mix").Cells(riga, 33).Value
Sheets("scheda mix").Range("er97").Value = Sheets("database mix").Cells(riga, 34).Value
Sheets("scheda mix").Range("er98").Value = Sheets("database mix").Cells(riga, 35).Value
Sheets("scheda mix").Range("er99").Value = Sheets("database mix").Cells(riga, 36).Value
Sheets("scheda mix").Range("er100").Value = Sheets("database mix").Cells(riga, 37).Value
Sheets("scheda mix").Range("er101").Value = Sheets("database mix").Cells(riga, 38).Value
Sheets("scheda mix").Range("er102").Value = Sheets("database mix").Cells(riga, 39).Value
Sheets("scheda mix").Range("er103").Value = Sheets("database mix").Cells(riga, 40).Value
Sheets("scheda mix").Range("er104").Value = Sheets("database mix").Cells(riga, 41).Value
Sheets("scheda mix").Range("er105").Value = Sheets("database mix").Cells(riga, 42).Value
Sheets("scheda mix").Range("er106").Value = Sheets("database mix").Cells(riga, 43).Value
Sheets("scheda mix").Range("er107").Value = Sheets("database mix").Cells(riga, 44).Value
Sheets("scheda mix").Range("er108").Value = Sheets("database mix").Cells(riga, 45).Value
Sheets("scheda mix").Range("er109").Value = Sheets("database mix").Cells(riga, 46).Value
Sheets("scheda mix").Range("er110").Value = Sheets("database mix").Cells(riga, 47).Value
Sheets("scheda mix").Range("er111").Value = Sheets("database mix").Cells(riga, 48).Value
Sheets("scheda mix").Range("er112").Value = Sheets("database mix").Cells(riga, 49).Value
Sheets("scheda mix").Range("er113").Value = Sheets("database mix").Cells(riga, 50).Value
Sheets("scheda mix").Range("er114").Value = Sheets("database mix").Cells(riga, 51).Value
Sheets("scheda mix").Range("er115").Value = Sheets("database mix").Cells(riga, 52).Value
Sheets("scheda mix").Range("er116").Value = Sheets("database mix").Cells(riga, 53).Value
Sheets("scheda mix").Range("er117").Value = Sheets("database mix").Cells(riga, 54).Value
Sheets("scheda mix").Range("er118").Value = Sheets("database mix").Cells(riga, 55).Value
Sheets("scheda mix").Range("er119").Value = Sheets("database mix").Cells(riga, 56).Value
Sheets("scheda mix").Range("er120").Value = Sheets("database mix").Cells(riga, 57).Value
Sheets("scheda mix").Range("er121").Value = Sheets("database mix").Cells(riga, 58).Value
Sheets("scheda mix").Range("er122").Value = Sheets("database mix").Cells(riga, 59).Value
Sheets("scheda mix").Range("er123").Value = Sheets("database mix").Cells(riga, 60).Value
Sheets("scheda mix").Range("er124").Value = Sheets("database mix").Cells(riga, 61).Value
Sheets("scheda mix").Range("er125").Value = Sheets("database mix").Cells(riga, 62).Value
Sheets("scheda mix").Range("er126").Value = Sheets("database mix").Cells(riga, 63).Value
Sheets("scheda mix").Range("er127").Value = Sheets("database mix").Cells(riga, 64).Value
Sheets("scheda mix").Range("er128").Value = Sheets("database mix").Cells(riga, 65).Value
Sheets("scheda mix").Range("er129").Value = Sheets("database mix").Cells(riga, 66).Value
Sheets("scheda mix").Range("er130").Value = Sheets("database mix").Cells(riga, 67).Value
Sheets("scheda mix").Range("er131").Value = Sheets("database mix").Cells(riga, 68).Value
Sheets("scheda mix").Range("er132").Value = Sheets("database mix").Cells(riga, 69).Value
Sheets("scheda mix").Range("er133").Value = Sheets("database mix").Cells(riga, 70).Value
Sheets("scheda mix").Range("er134").Value = Sheets("database mix").Cells(riga, 71).Value
Sheets("scheda mix").Range("er135").Value = Sheets("database mix").Cells(riga, 72).Value
Sheets("scheda mix").Range("er136").Value = Sheets("database mix").Cells(riga, 73).Value
Sheets("scheda mix").Range("er137").Value = Sheets("database mix").Cells(riga, 74).Value
Sheets("scheda mix").Range("er138").Value = Sheets("database mix").Cells(riga, 75).Value
Sheets("scheda mix").Range("er139").Value = Sheets("database mix").Cells(riga, 76).Value
Sheets("scheda mix").Range("er140").Value = Sheets("database mix").Cells(riga, 77).Value
Sheets("scheda mix").Range("er141").Value = Sheets("database mix").Cells(riga, 78).Value
Sheets("scheda mix").Range("er142").Value = Sheets("database mix").Cells(riga, 79).Value
Sheets("scheda mix").Range("er143").Value = Sheets("database mix").Cells(riga, 80).Value
Sheets("scheda mix").Range("er144").Value = Sheets("database mix").Cells(riga, 81).Value
Sheets("scheda mix").Range("er145").Value = Sheets("database mix").Cells(riga, 82).Value
Sheets("scheda mix").Range("er146").Value = Sheets("database mix").Cells(riga, 83).Value
'fin qui ok
Sheets("scheda mix").Range("er147").Value = Sheets("database mix").Cells(riga, 84).Value
Sheets("scheda mix").Range("er148").Value = Sheets("database mix").Cells(riga, 85).Value
Sheets("scheda mix").Range("er149").Value = Sheets("database mix").Cells(riga, 86).Value
Sheets("scheda mix").Range("er150").Value = Sheets("database mix").Cells(riga, 87).Value
Sheets("scheda mix").Range("er151").Value = Sheets("database mix").Cells(riga, 88).Value
Sheets("scheda mix").Range("er152").Value = Sheets("database mix").Cells(riga, 89).Value
Sheets("scheda mix").Range("er153").Value = Sheets("database mix").Cells(riga, 90).Value
Sheets("scheda mix").Range("er154").Value = Sheets("database mix").Cells(riga, 91).Value
Sheets("scheda mix").Range("er155").Value = Sheets("database mix").Cells(riga, 92).Value
Sheets("scheda mix").Range("er156").Value = Sheets("database mix").Cells(riga, 93).Value
Sheets("scheda mix").Range("er157").Value = Sheets("database mix").Cells(riga, 94).Value
Sheets("scheda mix").Range("er158").Value = Sheets("database mix").Cells(riga, 95).Value
Sheets("scheda mix").Range("er159").Value = Sheets("database mix").Cells(riga, 96).Value
Sheets("scheda mix").Range("er160").Value = Sheets("database mix").Cells(riga, 97).Value
Sheets("scheda mix").Range("er161").Value = Sheets("database mix").Cells(riga, 98).Value
Sheets("scheda mix").Range("er162").Value = Sheets("database mix").Cells(riga, 99).Value
Sheets("scheda mix").Range("er163").Value = Sheets("database mix").Cells(riga, 100).Value
Sheets("scheda mix").Range("er164").Value = Sheets("database mix").Cells(riga, 101).Value
Sheets("scheda mix").Range("er165").Value = Sheets("database mix").Cells(riga, 102).Value
Sheets("scheda mix").Range("er166").Value = Sheets("database mix").Cells(riga, 103).Value
Sheets("scheda mix").Range("er167").Value = Sheets("database mix").Cells(riga, 104).Value
Sheets("scheda mix").Range("er168").Value = Sheets("database mix").Cells(riga, 105).Value
Sheets("scheda mix").Range("er169").Value = Sheets("database mix").Cells(riga, 106).Value
Sheets("scheda mix").Range("er170").Value = Sheets("database mix").Cells(riga, 107).Value
Sheets("scheda mix").Range("er171").Value = Sheets("database mix").Cells(riga, 108).Value
Sheets("scheda mix").Range("er172").Value = Sheets("database mix").Cells(riga, 109).Value
Sheets("scheda mix").Range("er173").Value = Sheets("database mix").Cells(riga, 110).Value
Sheets("scheda mix").Range("er174").Value = Sheets("database mix").Cells(riga, 111).Value
Sheets("scheda mix").Range("er175").Value = Sheets("database mix").Cells(riga, 112).Value
Sheets("scheda mix").Range("er176").Value = Sheets("database mix").Cells(riga, 113).Value
Sheets("scheda mix").Range("er177").Value = Sheets("database mix").Cells(riga, 114).Value
Sheets("scheda mix").Range("er178").Value = Sheets("database mix").Cells(riga, 115).Value
Sheets("scheda mix").Range("er179").Value = Sheets("database mix").Cells(riga, 116).Value
Sheets("scheda mix").Range("er180").Value = Sheets("database mix").Cells(riga, 117).Value
Sheets("scheda mix").Range("er181").Value = Sheets("database mix").Cells(riga, 118).Value
Sheets("scheda mix").Range("er182").Value = Sheets("database mix").Cells(riga, 119).Value
Sheets("scheda mix").Range("er183").Value = Sheets("database mix").Cells(riga, 120).Value
Sheets("scheda mix").Range("er184").Value = Sheets("database mix").Cells(riga, 121).Value
Sheets("scheda mix").Range("er185").Value = Sheets("database mix").Cells(riga, 122).Value
Sheets("scheda mix").Range("er186").Value = Sheets("database mix").Cells(riga, 123).Value
Sheets("scheda mix").Range("er187").Value = Sheets("database mix").Cells(riga, 124).Value
Sheets("scheda mix").Range("er188").Value = Sheets("database mix").Cells(riga, 125).Value
Sheets("scheda mix").Range("er189").Value = Sheets("database mix").Cells(riga, 126).Value
Sheets("scheda mix").Range("er190").Value = Sheets("database mix").Cells(riga, 127).Value
Sheets("scheda mix").Range("er191").Value = Sheets("database mix").Cells(riga, 128).Value
Sheets("scheda mix").Range("er192").Value = Sheets("database mix").Cells(riga, 129).Value
Sheets("scheda mix").Range("er193").Value = Sheets("database mix").Cells(riga, 130).Value
Sheets("scheda mix").Range("er194").Value = Sheets("database mix").Cells(riga, 131).Value
Sheets("scheda mix").Range("er195").Value = Sheets("database mix").Cells(riga, 132).Value
Sheets("scheda mix").Range("er196").Value = Sheets("database mix").Cells(riga, 133).Value
Sheets("scheda mix").Range("er197").Value = Sheets("database mix").Cells(riga, 134).Value
Sheets("scheda mix").Range("er198").Value = Sheets("database mix").Cells(riga, 135).Value
Sheets("scheda mix").Range("er199").Value = Sheets("database mix").Cells(riga, 136).Value
Sheets("scheda mix").Range("er200").Value = Sheets("database mix").Cells(riga, 137).Value
Sheets("scheda mix").Range("er201").Value = Sheets("database mix").Cells(riga, 138).Value
Sheets("scheda mix").Range("er202").Value = Sheets("database mix").Cells(riga, 139).Value
Sheets("scheda mix").Range("er203").Value = Sheets("database mix").Cells(riga, 140).Value
Sheets("scheda mix").Range("er204").Value = Sheets("database mix").Cells(riga, 141).Value
Sheets("scheda mix").Range("er205").Value = Sheets("database mix").Cells(riga, 142).Value
Sheets("scheda mix").Range("er206").Value = Sheets("database mix").Cells(riga, 143).Value
Sheets("scheda mix").Range("er207").Value = Sheets("database mix").Cells(riga, 144).Value
Sheets("scheda mix").Range("er208").Value = Sheets("database mix").Cells(riga, 145).Value
Sheets("scheda mix").Range("er209").Value = Sheets("database mix").Cells(riga, 146).Value
Sheets("scheda mix").Range("er210").Value = Sheets("database mix").Cells(riga, 147).Value
Sheets("scheda mix").Range("er211").Value = Sheets("database mix").Cells(riga, 148).Value
Sheets("scheda mix").Range("er212").Value = Sheets("database mix").Cells(riga, 149).Value
Sheets("scheda mix").Range("er213").Value = Sheets("database mix").Cells(riga, 150).Value
Sheets("scheda mix").Range("er214").Value = Sheets("database mix").Cells(riga, 151).Value
Sheets("scheda mix").Range("er215").Value = Sheets("database mix").Cells(riga, 152).Value
Sheets("scheda mix").Range("er216").Value = Sheets("database mix").Cells(riga, 153).Value
Sheets("scheda mix").Range("er217").Value = Sheets("database mix").Cells(riga, 154).Value
Sheets("scheda mix").Range("er218").Value = Sheets("database mix").Cells(riga, 155).Value
Sheets("scheda mix").Range("er219").Value = Sheets("database mix").Cells(riga, 156).Value
Sheets("scheda mix").Range("er220").Value = Sheets("database mix").Cells(riga, 157).Value
Sheets("scheda mix").Range("er221").Value = Sheets("database mix").Cells(riga, 158).Value
Sheets("scheda mix").Range("er222").Value = Sheets("database mix").Cells(riga, 159).Value
Sheets("scheda mix").Range("er223").Value = Sheets("database mix").Cells(riga, 160).Value
Sheets("scheda mix").Range("er224").Value = Sheets("database mix").Cells(riga, 161).Value
Sheets("scheda mix").Range("er225").Value = Sheets("database mix").Cells(riga, 162).Value
Sheets("scheda mix").Range("er226").Value = Sheets("database mix").Cells(riga, 163).Value
Sheets("scheda mix").Range("er227").Value = Sheets("database mix").Cells(riga, 164).Value
Sheets("scheda mix").Range("er228").Value = Sheets("database mix").Cells(riga, 165).Value
Sheets("scheda mix").Range("er229").Value = Sheets("database mix").Cells(riga, 166).Value
Sheets("scheda mix").Range("er230").Value = Sheets("database mix").Cells(riga, 167).Value
Sheets("scheda mix").Range("er231").Value = Sheets("database mix").Cells(riga, 168).Value
Sheets("scheda mix").Range("er232").Value = Sheets("database mix").Cells(riga, 169).Value
Sheets("scheda mix").Range("er233").Value = Sheets("database mix").Cells(riga, 170).Value
Sheets("scheda mix").Range("er234").Value = Sheets("database mix").Cells(riga, 171).Value
Sheets("scheda mix").Range("er235").Value = Sheets("database mix").Cells(riga, 172).Value
Sheets("scheda mix").Range("er236").Value = Sheets("database mix").Cells(riga, 173).Value
Sheets("scheda mix").Range("er237").Value = Sheets("database mix").Cells(riga, 174).Value
Sheets("scheda mix").Range("er238").Value = Sheets("database mix").Cells(riga, 175).Value
Sheets("scheda mix").Range("er239").Value = Sheets("database mix").Cells(riga, 176).Value
Sheets("scheda mix").Range("er240").Value = Sheets("database mix").Cells(riga, 177).Value
Sheets("scheda mix").Range("er241").Value = Sheets("database mix").Cells(riga, 178).Value
Sheets("scheda mix").Range("er242").Value = Sheets("database mix").Cells(riga, 179).Value
Sheets("scheda mix").Range("er243").Value = Sheets("database mix").Cells(riga, 180).Value
Sheets("scheda mix").Range("er244").Value = Sheets("database mix").Cells(riga, 181).Value
Sheets("scheda mix").Range("er245").Value = Sheets("database mix").Cells(riga, 182).Value
Sheets("scheda mix").Range("er246").Value = Sheets("database mix").Cells(riga, 183).Value

Fine_Estrai:
Sheets("scheda mix").Select


End Sub

Sub STAMPA()
'
' STAMPA Macro
'Sub salvainpdf()
'
' salvainpdf Macro
'
Dim Path, Nome, MioNome

Path = "C:\Users\Administrator\Documents\AZIENDA\VISITE ISPETTIVE FPC\FPC 2015\BISCEGLIE\MISCELE\Miscele Fpc Bisceglie\Schede mix qual. FPC"
Nome = "BISCEGLIE " & Range("DO6").Value
MioNome = Path & "\" & Nome & ".pdf"
'
Sheets("SCHEDA MIX").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MioNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

'



Sub finale()
Call INIZIALIZZA
Call Estrai_MIX
Call STAMPA
Call INIZIALIZZA
Call Estrai_MIX

End Sub
[/color]

GRAZIE PER L'AIUTO!!
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Re: [EXCEL] stampare un file in PDF con una macro

Postdi Anthony47 » 22/12/15 16:10

Anthony ha scritto:Probabilmente un passo avanti si potrebbe fare se pubblichi un esempio di file su cui lavorano le macro INIZIALIZZA e Estrai_MIX, insieme col listato delle macro.
Adesso sappiamo il contenuto delle macro, ma non sappiamo niente della struttura di dati su cui esse lavorano; quindi e' come se non sapessimo ancora nulla del problema da risolvere.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] stampare un file in PDF con una macro

Postdi coupe79 » 22/12/15 16:18

anthony , grazie mille, ma tanto ci ho sbattuto la testa che riseguendo passo passo ciascun passaggio ho trovato il conflitto e sistemato entrambi gli errori in entrambi i file.
Grazie mille comunque per l'aiuto . Se mi dovesse servire una mano per altro vi contattero sicuramente ancora , e questa volta in maniera ancora piu dettagliata .

Grazie ancora!!!
coupe79
Utente Junior
 
Post: 36
Iscritto il: 29/08/12 15:03

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] stampare un file in PDF con una macro":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti