Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 14-05-2015, 12.38.07   #31
morpheus1976
Newbie
 
Registrato: 04-05-2015
Messaggi: 26
morpheus1976 promette bene
Rif: ESPORTARE DATI DA EXCEL IN WORD

Allora lo sistemato e ho lanciato con ctrl a unica cosa che purtroppo mi ha stamapto i primi 100 con le parti cambiate per ogni riga ma la parte superiore quella dove i campi rimanevano sempre gli stessi, sono vuoti e quindi non me li ha stampati
morpheus1976 non è collegato   Rispondi citando
Vecchio 14-05-2015, 12.38.46   #32
morpheus1976
Newbie
 
Registrato: 04-05-2015
Messaggi: 26
morpheus1976 promette bene
Rif: ESPORTARE DATI DA EXCEL IN WORD

cmq non è andato in crash, manca solo quella parte che rimane fissa, come nel primo file che avevi realizzato e penso che siamo quasi a posto
morpheus1976 non è collegato   Rispondi citando
Vecchio 14-05-2015, 12.42.09   #33
morpheus1976
Newbie
 
Registrato: 04-05-2015
Messaggi: 26
morpheus1976 promette bene
Rif: ESPORTARE DATI DA EXCEL IN WORD

pensavo se ricopiassi i dati io a mano sul file word dove mancano poi nella stampa verranno replicati per tutte le stampe insieme ai valori che cambiano?
morpheus1976 non è collegato   Rispondi citando
Vecchio 14-05-2015, 12.48.26   #34
morpheus1976
Newbie
 
Registrato: 04-05-2015
Messaggi: 26
morpheus1976 promette bene
Rif: ESPORTARE DATI DA EXCEL IN WORD

penso di aver capito i valori da cambiare per stampare la rimanenza ovvero:

For i = 2 To 100 per i primi dal 2 al 100
For i= 101 To 199 per gli altri 100

e cosi via giusto?
morpheus1976 non è collegato   Rispondi citando
Vecchio 14-05-2015, 13.07.11   #35
morpheus1976
Newbie
 
Registrato: 04-05-2015
Messaggi: 26
morpheus1976 promette bene
Rif: ESPORTARE DATI DA EXCEL IN WORD

ok funziona grazie mille per l'ottimo lavoro mi sono tolto da una rogna
morpheus1976 non è collegato   Rispondi citando
Vecchio 14-05-2015, 19.02.35   #36
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: ESPORTARE DATI DA EXCEL IN WORD

sarebbe meglio calcolare l'ultima riga scritta, metti che domani devi aggiungere o togliere delle righe ti si sballa tutto.

sostituisci questo codice con quello che usi adesso
Codice:
Sub a()
Dim xl_app As Excel.Application
Dim xl_file As Excel.Workbook
Dim xl_foglio As Excel.Worksheet

Application.ScreenUpdating = False
myfile = "C:\Users\User\Desktop\Riepilogo.xlsx"

Set xl_app = New Excel.Application
Set xl_file = xl_app.Workbooks.Open(myfile)
Set xl_foglio = xl_file.Worksheets("Foglio3")

Uriga = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To Uriga
  With xl_foglio
    ActiveDocument.FormFields("T1").Result = .Range("A" & i).Value
    ActiveDocument.FormFields("T2").Result = .Range("D" & i).Value
    ActiveDocument.FormFields("T3").Result = .Range("E" & i).Value
    ActiveDocument.FormFields("T4").Result = .Range("F" & i).Value
    ActiveDocument.FormFields("T5").Result = .Range("I" & i).Value
    ActiveDocument.FormFields("T6").Result = .Range("I" & i).Value
 End With

Sleep 500 'ritardo di 5 secondi la stampa per ogni ciclo
Application.PrintOut FileName:="", Pages:="1", Range:=wdPrintRangeOfPages

Next i

xl_file.Close (False)
xl_app.Quit
 
Set xl_foglio = Nothing
Set xl_file = Nothing
Set xl_app = Nothing

End Sub
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Free Word password / Excel password recovery crazy.cat Segnalazioni Web 4 03-03-2012 16.27.53
[Guida] Crea e invia file PDF da Excel con VBA Alexsandra Guide 0 18-02-2012 16.47.31
Recupero dati da file di Excel sobek Windows 7/Vista/XP/ 2003 9 15-03-2008 17.40.11
copiare dati da pagina web in excel fabiovel Office suite 5 02-01-2008 12.43.17
Riasumere dati in unico foglio in Excel Gabry Software applicativo 6 21-02-2004 02.19.35

Orario GMT +2. Ora sono le: 12.43.50.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.