Padronize layouts de ordem de serviço para o Centro de São Paulo via VBA

Mais de 60% das gráficas e bureaus de impressão no Centro de São Paulo ainda formatam ordens de serviço manualmente no CorelDRAW, copiando arquivos, apagando dados antigos e redigitando informações — um processo que consome horas por semana e abre brecha para erros de endereço, numeração duplicada e layout desalinhado. A automação via VBA transforma esse fluxo: um único modelo mestre, uma interface de preenchimento e a geração em lote de dezenas de documentos padronizados em minutos. Este tutorial mostra como construir essa solução do zero, com validação de dados, numeração persistente e impressão em fila.

O Centro de SP concentra alta densidade de comércios, prédios históricos e logística complexa; uma ordem de serviço mal formatada pode significar técnico no endereço errado, multa por falta de campo obrigatório ou retrabalho de impressão. Padronizar via código não é apenas estética — é controle operacional. Vamos estruturar a macro em camadas: modelo visual, interface de dados, motor de geração e rotinas de qualidade.

Antes de codificar, organize o ambiente: CorelDRAW X7 ou superior (64-bit recomendado), pasta de rede acessível para o arquivo .gms e planilha-mestra de clientes/endereços em .xlsx. Se você nunca criou macros, recomendo ler primeiro como criar macros VBA para CorelDRAW do zero para entender o editor VBA, objetos Application, Document, Layer e Shape.

1. Modelo mestre: camadas, guias e placeholders

No Cabecalho, posicione logotipo, razão social, CNPJ e telefone fixos — converta em Símbolo (Ctrl+F3) para reuso. No Corpo, desenhe caixas de texto para cada campo variável. Use a ferramenta Texto Artístico para rótulos (“Cliente:”, “Endereço:”) e Texto de Parágrafo para valores. Dê nomes aos shapes de valor via painel Propriedades do Objeto (ex: shpCliente, shpEndereco, shpOSNumero, shpData, shpTecnico, shpAssinatura). No Rodape, coloque aviso legal, QR code placeholder e numeração de página.

Salve como OS_Modelo_Mestre.cdr na pasta de rede. Esse arquivo nunca será aberto diretamente pela macro; a macro cria cópia em memória (CreateDocumentFromTemplate), preenche e imprime/exporta.

2. UserForm: coleta estruturada com validação

No UserForm_Initialize, carregue clientes da planilha:

Private Sub UserForm_Initialize()
    Dim wb As Object, ws As Object, rng As Object
    Set wb = CreateObject("Excel.Application")
    wb.Visible = False
    Set ws = wb.Workbooks.Open("\\SERVIDOR\Macros\Clientes_CentroSP.xlsx").Sheets("Clientes")
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, 1).End(-4162).Row) ' xlUp
    Me.cboCliente.List = rng.Value
    wb.Quit
    Set wb = Nothing
    
    ' Numeração sequencial persistente
    Me.txtOSNumero.Value = LerProximoNumeroOS()
    Me.dtpData.Value = Date
End Sub

Função LerProximoNumeroOS lê/grava em \\SERVIDOR\Macros\OS_Contador.ini (formato UltimoNumero=1234). Use GetPrivateProfileString / WritePrivateProfileString (API Windows) ou leitura/escrita de arquivo texto simples.

Validação no btnGerar_Click:

If Me.cboCliente.ListIndex = -1 Then MsgBox "Selecione o cliente.", vbExclamation: Exit Sub
If Len(Me.txtCEP.Value) <> 9 Then MsgBox "CEP inválido (use 00000-000).", vbExclamation: Exit Sub
If Me.cboTecnico.ListIndex = -1 Then MsgBox "Selecione o técnico.", vbExclamation: Exit Sub

3. Motor de geração: preenchimento e impressão em lote

With doc
    .Layers("Corpo").Activate
    .Shapes("shpOSNumero").Text.Story.Text = dados.NumeroOS
    .Shapes("shpData").Text.Story.Text = Format(dados.Data, "dd/mm/yyyy")
    .Shapes("shpCliente").Text.Story.Text = dados.Cliente
    .Shapes("shpEndereco").Text.Story.Text = dados.EnderecoCompleto
    .Shapes("shpServico").Text.Story.Text = dados.Servico
    .Shapes("shpTecnico").Text.Story.Text = dados.Tecnico
    .Shapes("shpObservacao").Text.Story.Text = dados.Observacao
    
    If dados.Urgencia Then
        .Shapes("shpUrgenciaTag").Visible = True
    End If
    
    ' Impressão direta na fila da impressora padrão
    .PrintOut Copies:=1, Collate:=True
    .Close SaveChanges:=False
End With

GravarProximoNumeroOS dados.NumeroOS + 1

End Sub

Para **impressão em lote** (ex: 30 OS da manhã), itere sobre array de `OSDados` e chame `GerarOS` dentro de loop. Desative otimização:
```vba
Application.Optimization = True
Application.EventsEnabled = False
' ... loop ...
Application.EventsEnabled = True
Application.Optimization = False

Isso evita redraw de tela e eventos desnecessários, cortando tempo total em até 70%. Veja detalhes em boas práticas de desempenho em macros para produção.

4. Validação de integridade e QR Code rastreável

O QR permite que o técnico escaneie no celular e abra checklist digital, registro de chegada ou laudo — integrando papel e sistema. Para geração de laudos técnicos completos, veja automatize a identidade visual do salão de beleza em Pinheiros como referência de estrutura de documento composto.

5. Distribuição, versionamento e suporte

Crie CHANGELOG.md na pasta:

<h2 id="secao-6">v1.3 (2024-03-15)</h2>
- Adicionado campo "Complemento" no endereço
- Correção: numeração não travava em rede instável
- QR Code agora inclui hash SHA-1 para anti-fraude

Treine a equipe com atalho Ctrl+Shift+O (definido em Ferramentas > Personalização > Comandos > Macros). Documente fluxo: “Abrir CorelDRAW > Atalho > Preencher > Gerar > Imprimir”. Estabeleça canal no Teams/Slack para dúvidas e reporte de bugs.

6. Adaptação para outras regiões e serviços

desentupidora no Centro

Padronizar ordens de serviço via VBA no CorelDRAW elimina a formatação artesanal, garante rastreabilidade e libera a equipe para focar na execução técnica. Comece pelo modelo mestre e pela numeração persistente; o resto escala naturalmente. Implemente hoje a primeira versão, meça o tempo economizado na semana e itere — a automação paga o desenvolvimento no primeiro mês.

Checklist prático

Perguntas frequentes