Formatando Etiquetas

[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

[Guest Mr. Dog Bean]

Aproveitando, como faço para abrir o BD c/ SENHA pelo script acima

[Graymalkin]

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

[Dog Bean]

E como faço abrir o BD c senha no script acima????? pode dar uma luz???

[Graymalkin]

Já tentou o parâmetro PasswordDocument da rotina OpenDataSource()?

Abraços,

Graymalkin

[Dog Bean]

Pior que já.......+ não funcionou!!!!!

[Graymalkin]

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

[Dog Bean]

Testei de todas as formas, porém sem sucesso.......Aí veio a pergunta "Será que estou fazendo algo ERRADO ????".... Graymalkin seria possivel você fazer um exemplo pra mim. pppppfffffffffff......HELP

Desde já brigaduuuuuuuu..............vlw