Problemas com impressão

[ToOM]

Olá
Estou com um problema na hora da impressão
é uma planilha criada para etiquetas 36x89mm impressora térmica smart label printer 650
Foi uma planilha com lugares específicos onde recebe informação são 10 lugares

Foi selecionado as 10 posições depois foi em formatar intervalos de impressão e definir
na hora de imprimir aparece perfeitamente como saira a impressão

Na hora de imprimir sai apenas a ultima colocada.
selecionando pagina 1-2 1-7 ou qualquer outras sai apenas uma etiqueta e a ultima

Como resolver?

[schiavinatto]

Ola @ToOM, se mandar 1 por vez sai certo,

Se SIM montar macro que mande uma a uma.

[schiavinatto]

Qual versão esta usando e o SO ?

[ToOM]

Ola
se mandar uma por vez sai sim
sai certinho por exemplo se colocar pagina 5 ou pagina 6 qualquer uma ate a 10 sai a informação correta
ai tem que fazer uma a uma
não sei como montar esta macro para impressão

[ToOM]

esta na ultima versão e SO windows 10 pro

[ToOM]

teria como montar uma macro pra imprimir e perguntas quantas paginas gostaria de imprimir ?
sendo assim escolhendo o numero 3 por exemplo sairia impresso a pagina 1 2 e 3

[schiavinatto]

@ToOM, comentou:

Gilberto
Fiz esta macro ela abre a caixa de impressão tudo certo mostrando tudo o que será impresso
mesmo assim ainda só sai uma etiqueta

REM  *****  BASIC  *****

sub Main
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Value = "$E$7:$F$9""$E$11:$F$13""$E$15:$F$17""$E$19:$F$21""$E$23:$F$25""$E$27:$F$29""$E$31:$F$33""$E$35:$F$36""$E$39:$F$41"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())
end sub

Obs. Não use Adicionar resposta para comentar

[schiavinatto]

Ola @ToOM, segue uma sugestão:

1. Use Formatar / Intervalo de impressão / Defivir, para cada etiqueta
2. Nomeie as cinco áreas das etiquetas ( no meu exemplo: Etiq1, …, Etiq5 )
3. verifique os parâmetros da impressora se estão certos

Execute a macro ImprimirEtiquetas

Sub ImprimirEtiquetas
	Call IrParaImprimirDefault "Etiq1"
	Call IrParaImprimirDefault "Etiq2"
	Call IrParaImprimirDefault "Etiq3"
	Call IrParaImprimirDefault "Etiq4"
	Call IrParaImprimirDefault "Etiq5"
End Sub


'================================================|
sub IrParaImprimirDefault (xLocal as string) 'xlocal = Planilha.A1
' uso: IrParaImprimirDefault "Planilha.A1" ou "Planila1.A1:B3" ou "NomeArea"
'================================================|
Dim document, dispatcher As Object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = xLocal
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:DefinePrintArea", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())
wait 100
end sub

Arquivo teste

---

ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[ToOM]

Deu Certo Gilberto
Mais uma vez meu muito obrigado