WORD Printout senza prompt
Posted: Mon Dec 27, 2010 4:50 am
Ciao,
dovendo stampare da word appare un prompt se i margini impostati nel documento sono inferiori a quelli della stampante scelta.
E' possibile forzare la stampa senza visualizzare niente?
Ecco un esempio (il messaggio non appare se si usano stampanti virtuali):Grazie per l'aiuto.
dovendo stampare da word appare un prompt se i margini impostati nel documento sono inferiori a quelli della stampante scelta.
E' possibile forzare la stampa senza visualizzare niente?
Ecco un esempio (il messaggio non appare se si usano stampanti virtuali):
Code: Select all
//------------------------------------------------------------------------------
FUNCTION TestWord()
LOCAL oWord
TRY
oWord := CreateObject( "Word.Application" )
oDoc := oWord:Documents:Add()
oWord:Selection:InsertAfter ( "This is a test." )
// Impostazione pagina
WITH OBJECT oDoc:PageSetup()
:TopMargin := 0
:BottomMargin := 0
:LeftMargin := 0
:RightMargin := 0
END WITH
// If the printer's margin is more big than set, word display a prompt.
// When use oWord:DisplayScreenTips := .F., the prompt is not displayed but the process is blocked
oWord:PrintOut()
oWord:Quit()
CATCH
oWord:Quit()
END
RETURN Nil
//------------------------------------------------------------------------------