Excel-Word printing code

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.Close(SaveChanges:=False)
    Call app.Quit(SaveChanges:=False)
End Sub