*Excel-Word printing code
Private Sub CommandButton1_Click()
Dim wks As Worksheet: Set wks = ThisWorkbook.ActiveSheet
Dim app As New Word.Application
Dim doc As Word.Document: Set doc = app.Documents.Add()
app.Visible = True
Call app.Activate
Call app.ShowMe
Dim rng As Word.Range: Set rng = doc.Range(Start:=0, End:=0)
Dim i As Long: i = 1
Dim CRLF As String: CRLF = Chr(13) & Chr(10)
Dim s As String
s = wks.Cells(i, 1) & " " & wks.Cells(i, 2) & CRLF
s = s & wks.Cells(i, 3) & CRLF
s = s & wks.Cells(i, 4) & ", " & wks.Cells(i, 5) & " " & wks.Cells(i, 6) & CRLF
rng.Text = s
rng.Font.Size = 36
Call doc.PrintPreview
''Call doc.PrintOut
Call doc.Close(SaveChanges:=False)
Call app.Quit(SaveChanges:=False)
End Sub
