SaberExcel excel vba imprimir total páginas x 4x

‘//====’http://www.saberexcel.com.br
Neste exemplo de planilha vamos aprender como imprimir o total de páginas (x) multiplicado 4,
isto é se houver 5 páginas irá emitir 20 cópias da Area desejada. Observe que para capturar o numero de páginas usamos o código.
i = Planilha1.HPageBreaks.Count + 1

=============’ vbmsgboxResult
Sub sbx_imprimir_total_paginas()
Dim wPergunta As String
Set f1 = Planilha1
x = Cells(Rows.Count, “a”).End(xlUp).Row
i = Planilha1.HPageBreaks.Count + 1
wPergunta = MsgBox(“Deseja imprimir esse total de [ ” & i * 4 & ” ] páginas ?”, vbYesNo + vbInformation, “Escola SaberExcel VBA Estudos”)
If wPergunta = vbYes Then
Set wArea = Range(“A1:L” & x)
f1.PageSetup.PrintArea = Area
f1.PrintOut Copies:=i * 4, Collate:=True
End If
‘[r4].Value = ([r4].Value + 1) ‘qt página.
Set f1 = Nothing
End Sub

Escola SaberExcel VBA Estudos
http://www.saberexcel.com.br

Faça o Download do Exemplo de Planilha