CAIXA DE DIALOGO - IMPRESSAO

CRISTIANBATISTA 31/08/2009 17:00:05
#321504
Possuo um script para converter um arquivo HTML para PDF.
a rotina já direciona para a impressora virtual (PDF), porém ao setar a impressão a caixa de dialogo é exibida para clicar no imprimir.
Preciso que a caixa de dialogo não apareca para o usuario.
Alguem pode me ajudar?
RRANGON 31/08/2009 17:02:55
#321505
Isso ae depende da sua impressora.

Se você estiver chamando através do vb, pode tentar utilizar o parametro [Ô]VBHIDE[Ô].
CRISTIANBATISTA 31/08/2009 17:09:56
#321506
Ronaldo eu peguei essa rotina para a conversão do arquivo. Como eu posso setar esse paremtro VBHIDE?

Public Sub PrintToPDF(FileNameForPDF As String, WordDocAndPathToConvertToPDF As String) [ô]RepName As String)

Dim PDFCreator1 As PDFCreator.clsPDFCreator
[ô]Dim DefaultPrinter As String
[ô]Dim c As Long
Dim OutputFilename As String
Dim strSaveToDir As String
vbHide
strSaveToDir = [Ô]c:\[Ô]

If Dir(strSaveToDir, vbDirectory) = [Ô][Ô] Then

MkDir strSaveToDir

End If

Set PDFCreator1 = New clsPDFCreator

With PDFCreator1
.cStart [Ô]/NoProcessingAtStartup[Ô]
.cOption([Ô]UseAutosave[Ô]) = 1
.cOption([Ô]UseAutosaveDirectory[Ô]) = 1
.cOption([Ô]AutosaveDirectory[Ô]) = strSaveToDir
.cOption([Ô]AutosaveFilename[Ô]) = FileNameForPDF
.cOption([Ô]AutosaveFormat[Ô]) = 0 [ô] 0 = PDF [ô]
.cVisible = True
.cDefaultPrinter = [Ô]PDFCreator[Ô]
.cClearCache
.cPrintFile (WordDocAndPathToConvertToPDF)
.cVisible = True
.cPrinterStop = False

End With

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar