Impressão por VBScript sem mensagem

Boa tarde,

Ao imprimir um documento por VBScript, quando tem impressão fora das margens, fica a mensagem (às vezes, não fica visível mas aguarda confirmação).
Gostava que o documento fosse impresso e fosse aceite mesmo que a impressão saísse das margens.

Ola Alexandre boa tarde;

Não sei que tipo de documento se refere, o VBScript não é igual para todos os documentos, mas tambem comporta o On Error Resume Next.

Imprimir relatório Access, por VBScript utilizo assim;


Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:\SeuBanco.mdb"

objAccess.Visible = True
Set objCommand = objAccess.DoCmd

On error resume next
'0 imprime e 2 visualiza

objCommand.OpenReport "SeuRelatorio", 0
objAccess.CloseCurrentDatabase

Se utiliza muito o VBScript, recomendo este site;
http://www.robvanderwoude.com/vbstech_debugging.php

Boa tarde Grande JPaulo

Obrigado pela ajuda, vou adaptar.
A minha necessidade, de momento, é para imprimir documento em Word.

Muito obrigado,
Alexandre

Ok Alexandre, se ajudar;

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("c:\teste.doc")
On Error Resume Next
objDoc.PrintOut()
objWord.Quit

Não sei se resolve porque essa mensagem é nativa do documento, talvez dar-lhe um Application.DisplayAlerts = False

Novamente, Grande JPaulo

Testei e verifico que a mensagem não aparece mas a impressão fica em espera com a seguinte mensagem:
"Aguarde enquanto o Word não conclui todos os trabalhos de impressão pendentes"
Nesta caixa de mensagem aparece apenas o botão para cancelar.

Muito obrigado,
Alexandre

Alexandre não está muito facil.

Ou cria-se um procedimento dentro do Word, para isso.

Ou faz-se um restart ao Job que fica pendurado para impressão, com este vbs;


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'Spooler'")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next

Grande JPaulo

Obrigado pela preciosa ajuda.

Esqueci-me de dizer que nem sabia o que era VBScript até ver, há alguns meses atrás, através deste fórum e do outro onde partilhamos saber.

Sobre a última solução apresentada, testei e mostra uma caixa de diálogo com a seguinte mensagem:
"Não é possível fechar o Microsoft Office Word porque existe uma caixa de diálogo aberta.
Clique em OK, mude para o Word e, em seguida, feche a caixa de diálogo."

Obrigado mais uma vez.
Alexandre

Bom dia Alexandre;

Terá de ser mesmo dentro do documento, veja se funfa assim no VBA do Word;

Private Sub Document_Open()
Application.DisplayAlerts = wdAlertsNone
End Sub


E veja se este link o ajuda;
http://sbarnhill.mvps.org/WordFAQs/BlankPage.htm

E ainda uma pequena brincadeira feita em VBS;
http://dl.dropbox.com/u/771097/Calculadora.vbs

Boa noite, Grande JPaulo

Ainda não resolvi a inactivação da mensagem de alerta, mas tudo bem.
Sobre o ficheiro em VBS, o Panda não me permite abrir.

Abraço,
Alexandre

Bom Dia Alexandre;

Gostaria de o ajudar, mas veja se a Microsoft o ajuda, aqui tem um cod para isso;

http://support.microsoft.com/kb/163574

Veja a brincadeira agora, renomeie de .txt para vbs

http://dl.dropbox.com/u/771097/Calculadora.txt

Boa noite, Grande JPaulo

Parece estar resolvida a situação:
Alem da preciosa ajuda que me deu, coloquei a pasta, no centro de confiabilidade para que o código não seja bloqueado.

Sobre o ficheiro calculadora, o panda bloqueia-mo na abertura.

Grande abraço e muito obrigado,
Alexandre

Obrigado pelo seu retorno Alexandre, feliz de feliz de mais uma situação estar resolvida.