Problema con il metodo Printout |
Armida |
25/08/2004 |
Difficoltà:
Principiante
|
|
Spero
di
ricevere
una
risposta...
non
so
più
a
che
santo
votarmi.
Mi
scuso
se
per
caso
questo
nn
è
il
luogo
giusto
per
parlare
di
vbscript,
ma
quando
uno
è
disperato....
Beh
veniamo
al
dunque..devo
precisare
che
sono
alle
prime
armi
con
vbscript.
Il
programmino
che
tento
di
sviluppare
è
la
stampa
di
un
libretto
in
formato
A5
Il
problema
che
ho
riscontrato
è
in
fase
di
stampa
ed
è
il
seguente:
Tramite
il
metodo
printout
passo
a
Word2000
l'ordine
delle
pagine
che
devono
essere
stampate,
in
questo
caso
"4,1,2,3"
quindi
quattro
pagine,
ma
al
momento
della
stampa
mi
vengono
stampate
due
pagine
vuote
anche
se
in
realtà
il
documento
che
apro
logicamente
non
è
vuoto.
Mi
stampa
due
pagine
perchè
voglio
stampare
due
pagine
A4
in
un
unica
pagina
A4.
objWord.PrintOut
True,False,4,"","","",0,1,"4,1,2,3",0,False,True,"","",False
,2,1,11907,16839
Vorrei
sapere
xchè
queste
pagine
me
le
stampa
vuote.
Per
chiarezza
ho
incollato
qui
sotto
tutta
la
sub.
cmq
sono
a
disposizione
per
ulteriori
chiarimenti
sul
problema
Ringrazio
fin
d'ora
chi
riuscirà
a
svelare
l'arcano
Armida
'===========================================================
=======
Sub
StampaDoc()
'===========================================================
=======
'Apro
il
documento
WORD
Dim
objWord
Set
objWord
=
WScript.CreateObject("Word.Application")
objWord.Documents.Open(C:\TEMP\prove
VBS.doc)
objWord.Visible
=
True
'
Descrizione
Metodo
PrintOut
:
'
Background,
Append,
Range,
OutputFileName,
From,
To,
Item,
'
Copies,
Pages,
Page
Type,
ProntToFile,
Collate,
FileName
'
ActivePrinterMacGX,
ManualDuplexPrint,
'
PrintZoomColumn,
PrintZoomRow,
PrintZoomPaperWidth,
PrintZoomPaperHeight
objWord.PrintOut
True,False,4,"","","",0,1,"4,1,2,3",0,False,True,"","",False
,2,1,11907,16839
End
Sub
|