Bom dia!

Segue minha contribuição.

Sub Imprimir ()

Dim wsheet as worksheet
Dim ws as worksheet
set wsheet = Sheets("formulario")
set ws = Sheets("etiquetas")
ws.select
if wsheet.range("k4").value = 0 Or wsheet.range("k4").value = empty then
Msgbox "Preencha a quantidade de copias antes de continuar."
wsheet.select
wsheet.range("k4").select
exit sub
end if
ws.Application.Dialogs(xlDialogPrint).Show
ws.PrintOut Copies:=wsheet.range("k4").value, Collate:=True
wsheet.range("k4").value = 0

End Sub

fernandoha,

Bom dia!

Veja se é assim.

Sub Imprimir ()

Dim wsheet as worksheet
Dim ws as worksheet
set wsheet = Sheets("formulario")
set ws = Sheets("etiquetas")
ws.select
if wsheet.range("k4").value = 0 Or wsheet.range("k4").value = empty then
Msgbox "Preencha a quantidade de copias antes de continuar."
wsheet.select
wsheet.range("k4").select
exit sub
end if
ws.Application.Dialogs(xlDialogPrint).Show
ws.PrintOut Copies:=wsheet.range("k4").value, Collate:=True
wsheet.range("k4").value = 0

End Sub

esta macro esta dando o seguinte erro (erro em tempo de execução '9' subscrito fora do imtervalo)

fernandoha,

Boa tarde!

Você verificou o arquivo que enviei? Viu que está funcionando corretamente?

Caso esteja tendo problemas com a adaptação para o seu arquivo, deve anexar o seu arquivo, compactado com .ZIP, aqui mesmo no fórum.

Outra detalhe: ao postar código VBA aqui no fórum, solicitamos, por gentileza, utilizar a TAG CODE existente no início da caixa de mensagens. Isso materá p fórum de forma organizada.

boa tarde wagner verifiquei seu arquivo e esse tipo de macro que pretendo colocar na minha ´planilha .nas o seu arquivo tem um pequeno erro pois esta so fazendo duas copias mesmo se tiver outro numero .
vou disponabilizar meu arquivo logo a baixo nessa planilha já tem varias macros que me ajudam muito .mas queria modificar a macro nomeada (geraretiqueta)pois quando uso sempre tenho que digitar a quantidade de copias na caixa de dialogo .eu gostaria de que ela fosse altomatico que a célula (k4) da planilha nomeada (formulario)comandasse quantas copias da planilha nomeada (etiquetas)
não reparem na bagunça da minha planilha que estou usando e adaptando ela ao mesmo tempo conforme a nessecidade
fiquem a vontade para modificar ou sugerir modificações

Boa tarde fernadoha

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

fernandoha,

Boa tarde!

Desculpe, mas... primeiro o arquivo que lhe enviei não tem nenhum erro. Testei aqui e está imprimindo a quantidade de cópias certas de acordo com o número que estiver contido na célula K4.

Segundo: sua adaptação estava incorreta. Veja que deixei seu código original lá comentado. Ajustei e agora está imprimindo corretamente de acordo com o número que estiver contido na célula K4.

wagner

Deu certo me ajudou muito
so mais um problema se o numero for da (k4) (0)ou menor a impressão deve ser cancelada

OK,

Segue nova versão com a correção no caso de não conter nada em K4 ou da mesma estar zerada.