LISTAR PLANILHAS E IMPRIMIR
Olá amigos,
Estou com um problema que não consigo resolver devido a minha falta de conhecimento..rs..rs... No modelo que está em anexo tem o exemplo que um formulário que lista todas as abas da planilha, porém modifiquei a propriedade multiselect da listbox para que ao invés que ele abrir a aba destacada, ele tenha a função apenas de selecionar e mandar imprimir depois. Só que quando seleciono o que quero e mando imprimir não dá certo, pois o mesmo entende que a impressão equivale apenas a aba que está ativa. Alguém pode me ajudar com esta questão. Desde já agradeço.
Um abraço a todos.
Estou com um problema que não consigo resolver devido a minha falta de conhecimento..rs..rs... No modelo que está em anexo tem o exemplo que um formulário que lista todas as abas da planilha, porém modifiquei a propriedade multiselect da listbox para que ao invés que ele abrir a aba destacada, ele tenha a função apenas de selecionar e mandar imprimir depois. Só que quando seleciono o que quero e mando imprimir não dá certo, pois o mesmo entende que a impressão equivale apenas a aba que está ativa. Alguém pode me ajudar com esta questão. Desde já agradeço.
Um abraço a todos.
Alguém pode me ajudar?
Segue exemplo anexo, espero q ajude!
IRENKO,
Seria quase isso mesmo, o que está faltando pra mim é seria que eu tenha a opção de selecionar várias planilhas pela janela (propriedade multiselect do listbox) e clicando depois no botão imprimir que vc criou ele então faria com que imprisse todas as planilhas selecionadas. Tem como?
Obrigado
Seria quase isso mesmo, o que está faltando pra mim é seria que eu tenha a opção de selecionar várias planilhas pela janela (propriedade multiselect do listbox) e clicando depois no botão imprimir que vc criou ele então faria com que imprisse todas as planilhas selecionadas. Tem como?
Obrigado
Alguém pode me ajudar a fazer com que apareça um MSGBOX quando o usuário não selecionar nenhum item? Segue modelo em anexo fornecido pelo IRENKO.
Obrigado.
Obrigado.
Acho que isso te ajuda
If lstPlanilhas.ListIndex = -1 Then
MsgBox [Ô]Não foi selecionado nenhum item para impressão.[Ô], vbInformation, [Ô]Impressão - By Pablo Moreira[Ô]
End If
Abraço
If lstPlanilhas.ListIndex = -1 Then
MsgBox [Ô]Não foi selecionado nenhum item para impressão.[Ô], vbInformation, [Ô]Impressão - By Pablo Moreira[Ô]
End If
Abraço
MITSUEDA,
Coloquei este código em vários pontos do conteúdo do botão e não está dando certo. O que estou fazendo de errado?
Obrigado
Coloquei este código em vários pontos do conteúdo do botão e não está dando certo. O que estou fazendo de errado?
Obrigado
Realmente por você estar usando multiplas linhas o codigo acima não vai funcionar.
Então faça um laço dentro dos itens do listbox
Dim x As Long
Dim fFlag As Boolean
With lstPlanilhas
If .ListIndex > -1 Then
For x = 0 To .ListCount - 1
If .Selected(x) Then
fFlag = True
End If
Next
End If
End With
If Not fFlag Then
MsgBox [Ô]Não existe item selecionado[Ô]
End If
Espero ter ajudado
Abraço
Então faça um laço dentro dos itens do listbox
Dim x As Long
Dim fFlag As Boolean
With lstPlanilhas
If .ListIndex > -1 Then
For x = 0 To .ListCount - 1
If .Selected(x) Then
fFlag = True
End If
Next
End If
End With
If Not fFlag Then
MsgBox [Ô]Não existe item selecionado[Ô]
End If
Espero ter ajudado
Abraço
MITSUEDA,
Blz, deu certinho aqui cara. Estou fechando o tópico. Muito obrigado.
Um abraço!!!
Blz, deu certinho aqui cara. Estou fechando o tópico. Muito obrigado.
Um abraço!!!
Tópico encerrado , respostas não são mais permitidas