Eseguire
una ricerca veloce nell' archivio delle risorse di Visual Basic
Italia®:
|
Preso
dall'archivio...
Premere il pulsante sotto per accedere direttamente ad un articolo
o ad un esempio preso in modo casuale dall'archivio.
|
Ultimo
e-book pubblicato:
 "INTRODUZIONE
AI CSS"
Lo scopo del CSS language è quello di controllare lo
stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile
esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno
di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli
di stile.
Prezzo: € 0.0.
|
Contatti.
Utilizzare l'email generica per domande relative al sito:
oppure scrivere
ad un responsabile di area.
Responsabile
del sito: >Andrea
Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini
|
|
|
|
|
| Creare Pdf in VB |
Simone |
29/06/2004 |
Difficoltà:
Medio
|
|
Salve,
ho
un
problema
con
un
programma
in
basic
che
dovrebbe
creare
file
pdf
da
file
.doc
in
automatico
questo
è
il
codice
basic
che
realizza
la
creazione
ma
vorrei
che
qualcuno
risolvesse
un
problema
che
si
verifica
durante
l'esecuzione.
Queste
sono
le
mie
istruz.
vi
è
un
problema:
dopo
l'esecuzione
dell'istruz:
".PrintOut
FileName:=PERCORSO,
Range:=wdPrintAllDocument"
appare
un
msg
con
scritto:
"
Stampa
in
corso.Uscendo
da
Word
si
annullerannno
tutte
le
operazioni
di
stampa.
Uscire
da
word?"
con
due
opzioni:
Si
e
NO
premendo
SI
esce
e
non
viene
eseguito
niente
premendo
NO
mi
appare
la
videata
di
salvataggio
in
cui
devo
inserire
il
nome
del
file
Output
+
la
sua
estensione
(.pdf)
mi
servirebbe
il
codice
per
fare
in
automatico
la
pressione
del
pulsante
NO
e
per
inserire
in
automatico
il
nome
del
file
+
estensione
questo
è
il
codice
totale
della
SUB:
Private
Sub
Command1_Click()
Dim
vett(40)
As
Integer
vett(0)
=
43
vett(1)
=
44
vett(2)
=
45
vett(3)
=
46
vett(4)
=
48
For
i
=
0
To
4
Set
APPLIC
=
New
Word.Application
APPLIC.ActivePrinter
=
"Acrobat
Distiller"
PERCORSO
=
"C:\morosi\"
PERCORSO
=
PERCORSO
&
"age_"
&
vett(i)
&
".DOC"
APPLIC.Documents.Open
PERCORSO
APPLIC.Visible
=
False
With
APPLIC
PERCORSO
=
"C:\morosi\age_"
&
vett(i)
&
".DOC"
.PrintOut
FileName:=PERCORSO,
Range:=wdPrintAllDocument
End
With
APPLIC.Quit
True
Next
i
End
Sub
grazie
attendo
aiuti
|
|
