Este fórum está sendo desativado

[vivianfla]

Boa noite!
Estou com uma planilha criada para impressão de etiquetas que altera a numeração do volume sequencialmente e cria várias imagens em uma nova planilha para impressão. Só que eu precisava inserir uma quebra de página a cada imagem criada para que não desconfigure a impressão na máquina Zebra.
Alguém consegue me ajudar?

O código está assim:

Código: Selecionar todos

Option Explicit
Sub Formatar_Impressão()
Dim vTl As Variant, i As Long, cLocal As Long: cLocal = 1
Dim ws As Worksheet: Set ws = Sheets("IMPRESSAO")
Dim rng As Range
Dim ct As Integer: ct = 0
DeleteAllPictures ' chama rotina que remove todas imgs
i = 1
vTl = InputBox("Por favor, digite o total de volumes!", "Valor Total de Volumes")

For i = i To vTl
Plan1.Range("C7").Value = i
Plan1.Range("E7").Value = vTl
Set rng = Plan1.Range("b1:g8")
With ws
rng.Copy
.Activate
.Range("A" & cLocal).Select
.Pictures.Paste
cLocal = cLocal + 17
ct = ct + 1
Application.CutCopyMode = False
End With
Next
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Zoom = 99
.LeftMargin = Application.CentimetersToPoints(0)
.RightMargin = Application.CentimetersToPoints(0)
.TopMargin = Application.CentimetersToPoints(0)
.BottomMargin = Application.CentimetersToPoints(1.5)
.HeaderMargin = Application.CentimetersToPoints(0)
.FooterMargin = Application.CentimetersToPoints(0)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
End With
If ct > 0 Then
MsgBox " Foram inseridas " & ct & " Etiquetas", 0, "Sucesso"
Else
MsgBox "Nenhuma Etiqueta foi inserida! Verifique!", 64, "Atenção"
End If
End Sub

Private Sub DeleteAllPictures()
Dim ws As Worksheet: Set ws = Sheets("IMPRESSAO")
With ws
.Activate
.Pictures.Delete
End With
End Sub

[osvaldomp]

Experimente:

na Sub Formatar_Impressão acrescente a linha em vermelho conforme abaixo
ct = ct + 1
ActiveSheet.HPageBreaks.Add Before:=Rows(cLocal - 5) 'acrescente esta linha


na Private Sub DeleteAllPictures acrescente a linha em vermelho conforme abaixo
.Pictures.Delete
.ResetAllPageBreaks 'acrescente esta linha