APARECER CAIXA DE IMPRESSAO
BOA TARDE TENHO ESSE CÓ“DIGO:
Private Sub Command30_Click()
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
.PrintOut
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
End Sub
PORéM ELE IMPRIME APENAS UMA CÓ“PIA GOSTARIA DE SABER ONDE TROCAR O CÓ“DIGO PARA APARECER A CAIXA DE OPÇÃO DA IMPRESSORA PARA DEFINIR QUANTAS CÓ“PIAS QUERO DESSE DOCUMENTO. AGRADEÇO DESSE Jà Â.
Private Sub Command30_Click()
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
.PrintOut
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
End Sub
PORéM ELE IMPRIME APENAS UMA CÓ“PIA GOSTARIA DE SABER ONDE TROCAR O CÓ“DIGO PARA APARECER A CAIXA DE OPÇÃO DA IMPRESSORA PARA DEFINIR QUANTAS CÓ“PIAS QUERO DESSE DOCUMENTO. AGRADEÇO DESSE Jà Â.
Você pode fazer um loop rodando quantas vezes voce quizer de cópias!!!
pode me ensinar como fazer um loop onde colocar isso no código.
olha só eu consegui que aparecesse a caixa de impressão mas quando coloco o numero de paginas que quero e dou enter a impressão nao aparece penso que não dá tempo para o código executar pois é uma seqà ¼encia de processos e o word fecha, gostaria de saber como retardar esse processo para que a impressora capturar as informação do word para imprimir quanto copias que desejar!
conforme esse código abaixo:
Private Sub Command30_Click()
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
CommonDialog1.ShowPrinter
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
End Sub
olha só eu consegui que aparecesse a caixa de impressão mas quando coloco o numero de paginas que quero e dou enter a impressão nao aparece penso que não dá tempo para o código executar pois é uma seqà ¼encia de processos e o word fecha, gostaria de saber como retardar esse processo para que a impressora capturar as informação do word para imprimir quanto copias que desejar!
conforme esse código abaixo:
Private Sub Command30_Click()
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
CommonDialog1.ShowPrinter
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
End Sub
O Loop você pode fazer desta maneira
Private Sub Command30_Click()
for x = 1 to <qtde de paginas> step 1
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
.PrintOut
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
next x
End Sub
Desta forma você fará o código rodas quantas vezes necessitar. Mas isto é bem rudimentar... Dependendo do que você necessita pode ter outras formas melhores!!!
Private Sub Command30_Click()
for x = 1 to <qtde de paginas> step 1
Dim Word As New Word.Application
With Word
.Documents.Open "c:\site.doc"
.Visible = False
.PrintOut
.Documents("c:\site.doc").Close wdDoNotSaveChanges
End With
Set Word = Nothing
next x
End Sub
Desta forma você fará o código rodas quantas vezes necessitar. Mas isto é bem rudimentar... Dependendo do que você necessita pode ter outras formas melhores!!!
Tópico encerrado , respostas não são mais permitidas