Pergunte aqui
0

Problemas com impressão

perguntadas 2019-07-25 20:37:48 +0200

imagem do gravatar de ToOM

updated 2019-07-25 20:41:05 +0200

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

Descrição da imagem

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

Descrição da imagem

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?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

Se SIM montar macro que mande uma a uma.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-07-25 22:42:46 +0200 )editar

Qual versão esta usando e o SO ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-07-25 22:43:37 +0200 )editar

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

imagem do gravatar de ToOMToOM ( 2019-07-26 12:35:21 +0200 )editar

esta na ultima versão e SO windows 10 pro

imagem do gravatar de ToOMToOM ( 2019-07-26 12:36:03 +0200 )editar

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

imagem do gravatar de ToOMToOM ( 2019-07-26 13:24:06 +0200 )editar

@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

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-07-29 16:40:44 +0200 )editar

1 Resposta

0

respondidas 2019-07-29 17:30:49 +0200

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 Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Deu Certo Gilberto Mais uma vez meu muito obrigado

imagem do gravatar de ToOMToOM ( 2019-08-01 15:20:05 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-07-25 20:37:48 +0200

Lidas: 26 vezes

Última atualização: Jul 29