Ir para conteúdo
Fórum Script Brasil
  • 0

Formatando Etiquetas


Guest Mr. Dog Bean

Pergunta

Guest Mr. Dog Bean

HELP, HELP Graymalkin

No Script que seje a linha abaixo indica o Número de série da eitqueta, isso quer dizer o TAMANHO da etiq. .Tem como via VB criar um novo tamanho personalizado da etiqueta?????

----------------------------------------------------------------------------------------------------------

''Cria um novo documento para as etiquetas usando a entrada AutoText

oApp.MailingLabel.CreateNewDocument Name:="5162", Address:="", _

AutoText:="MinhasEtiquetas", LaserTray:=wdPrinterManualFeed

-----------------------------------------------------------------------------------------------------------

Private Sub Gerar_Etiquetas_Click()

Dim oApp As Word.Application

Dim oDoc As Word.Document

'Inicia um novo documento Word

Set oApp = CreateObject("Word.Application")

Set oDoc = oApp.Documents.Add

Command1.Caption = "&Gerando Etiquetas..."

With oDoc.MailMerge

'Inclui os campos de mesclagens temporarios

'Usamos os campos da tabela Clientes do banco de dados mdb

With .Fields

.Add oApp.Selection.Range, "nome"

oApp.Selection.TypeParagraph

oApp.Selection.TypeParagraph

.Add oApp.Selection.Range, "endereço"

oApp.Selection.TypeParagraph

.Add oApp.Selection.Range, "cidade"

oApp.Selection.TypeText " "

.Add oApp.Selection.Range, "cep"

oApp.Selection.TypeText " - "

.Add oApp.Selection.Range, "uf"

End With

Dim oAutoText As Word.AutoTextEntry

Set oAutoText = oApp.NormalTemplate.AutoTextEntries.Add("MinhasEtiquetas", oDoc.Content)

'os campos de mesclagens serão excluidos pois a entrada - AutoText foi gerada

oDoc.Content.Delete

'Define a mesclagens para etiquetas e usa um banco de dados

'como fonte de dados , voce pode usar um arquivo texto|

.MainDocumentType = wdMailingLabels

'Informe aqui o caminho da fonte de dados

.OpenDataSource Name:=(App.Path & "\BaseDados.Mdb"), SQLStatement:="Select * From Cad_cliente order by cod"

''Cria um novo documento para as etiquetas usando a entrada AutoText

oApp.MailingLabel.CreateNewDocument Name:="5162", Address:="", _

AutoText:="MinhasEtiquetas", LaserTray:=wdPrinterManualFeed

'Executa a mesclagem para gerar as etiquetas

.Destination = wdSendToNewDocument

.Execute

'Excluir a entrada AutoText inserida

oAutoText.Delete

End With

'fecha o documento original e torna o word visivel e exibe as etiquetas

oDoc.Close False

oApp.Visible = False

Command1.Caption = "&Gerar Etiquetas"

' Salva o modelo quando o usuario sair do word

oApp.ActiveDocument.SaveAs (App.Path & "\Etiquetas1.doc")

oApp.Quit

End Sub

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Eu *acho* que você pode criar uma etiqueta personalizada assim:

Dim etqPersonalizada As CustomLabel

Set etqPersonalizada = oApp.MailingLabel.CustomLabels.Add("MinhaEtiqueta")
etqPersonalizada.Height = altura
etqPersonalizada.Width = largura

Sendo que não tenho como testar isso, mas tente adaptar ao seu código.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0

De fato, eu tentei aqui agora e também não funciona. Bom, em uma busca rápida no Google eu achei um tópico no qual o cara dá três opções para resolver o caso, sendo que a última (e a melhor) ele explica com mais detalhes como fazer: http://help.lockergnome.com/office/Automat...pict885380.html

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...