Public EndPage
Public IBCtoBeOrNotToBe
 '
Sub MacroLabels()
Dim Message As String, Title As String, Default As String, NumCopies As Long
Dim Rng1 As Range
Dim objTemplate As Template
Dim objBB As BuildingBlock
Msg = "Est-ce que le packaging c'est des IBCs?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Type de Packaging" ' Define title.
 ' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
  IBCtoBeOrNotToBe = "Yes"
Else ' User chose No.
  IBCtoBeOrNotToBe = "No"
End If
 ' Set prompt.
Message = "Rentrer le nombre d'etiquettes dont vous avez besoin"
 ' Set title.
Title = "Print"
 ' Set default.
Default = "1"
 ' Display message, title, and default value.
NumCopies = Val(InputBox(Message, Title, Default))
SerialNumber = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "SerialNumber")
If NumCopies = 0 Then Exit Sub
NumCopies = NumCopies + 1
If SerialNumber = "" Then
  SerialNumber = 1
End If
Dim Rng As Range
With ActiveDocument
  Set Rng = .GoTo(What:=wdGoToPage, Name:="1")
  Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
  Rng.Copy
  counter = 1
  While counter < NumCopies
    With .Range.Characters.Last
      .InsertBefore vbCr & Chr(12)
      .Collapse wdCollapseEnd
      .PasteAndFormat (wdFormatOriginalFormatting)
    End With
    SerialNumber = SerialNumber + 1
    counter = counter + 1
  Wend
End With
Call InsertTrianglePageNumber
ActivePrinter = "active printer"
EndPage = NumCopies - 1
End Sub
 '
Sub Print1()
If IBCtoBeOrNotToBe = "No" Then
  ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1-" & EndPage, Copies:=1
Else
  ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1-" & EndPage, Copies:=2
End If
End Sub
 '
Sub InsertTrianglePageNumber()
Dim tmp As Template
Dim shp As Shape
Dim rg As Range
With ActiveDocument
  Set rg = .Sections(1).Footers(wdHeaderFooterPrimary).Range
  If rg.ShapeRange.Count > 0 Then rg.ShapeRange.Delete
  Set tmp = GetBBTemplate
  If Not tmp Is Nothing Then
    tmp.BuildingBlockEntries("Triangle 1").Insert _
    Where:=rg, RichText:=True
    Set shp = rg.ShapeRange(1)
    With shp
      .Fill.ForeColor.ObjectThemeColor = wdThemeColorBackground1
      .Fill.ForeColor.TintAndShade = -0.15
      .Fill.Solid
      .Fill.Visible = msoFalse
      With .TextFrame.TextRange.Font
        .Color = 0 'seems to give the same black as  -587137025
        .Name = "Calibri"
        .Size = 36
        .Bold = True
      End With
    End With
  Else
    MsgBox "Could not find Building Blocks.dotx template", , "Error"
  End If
End With
End Sub
 '
Function GetBBTemplate() As Template
Dim tmp As Template
Templates.LoadBuildingBlocks
For Each tmp In Templates
  If LCase(tmp.Name) = "building blocks.dotx" Then
    Set GetBBTemplate = tmp
    Exit For
  End If
Next
End Function