Private Sub PrintSeparator(toWord, _ ByVal tcOutputDestination, _ ByVal tiSepTray, _ ByVal tcSepType, _ ByVal tcSection) On Error GoTo SeparatorError DoEvents toWord.Documents.Add With toWord.ActiveDocument.PageSetup .FirstPageTray = tiSepTray .OtherPagesTray = tiSepTray .VerticalAlignment = wdAlignVerticalCenter End With With toWord.Selection If tcSepType = "P" Then .InsertBreak Type:=wdPageBreak .InsertBreak Type:=wdPageBreak End If If (tcSection <> "") Then .ParagraphFormat.Alignment = wdAlignParagraphCenter .Font.Bold = wdToggle .Font.Size = 18 .TypeText Text:=ConvertSepType(tcSection) .TypeParagraph End If End With DoEvents Select Case tcOutputDestination Case "Printer" toWord.PrintOut Case "Preview" toWord.PrintPreview = True MsgBox "Separator Print Preview Ready" End Select toWord.ActiveDocument.Close (wdDoNotSaveChanges) DoEvents Exit Sub SeparatorError: MsgBox "Error:" & Err.Number & vbCr _ & "In: PrintSeparator" & vbCr _ & "Description: " & Err.Description End SubThanks to all............Rich