Jump to content
Fórum Script Brasil
  • 0

Formatando Etiquetas


Guest Mr. Dog Bean
 Share

Question

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 to comment
Share on other sites

7 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.8k
×
×
  • Create New...