how to create custom report specially for printing

[Arebrahimi]

For example, our table contains 5 fields or titles and we have ten rows of records. Now, we want only one record to appear in front of the titles of each field in the report, in addition to the format of the page and the arrangement of the fields in the report by ourselves. Let's make it so that it is not clear in this output that it was an Excel page.
As an example, we put the main table in the first image and the output printout in the second attached image

 

[MikeVol]

Hi @Arebrahimi.
On the sheet where you have the list (in my case it is Sheet1) select any cell. Then run the following code:

Option Explicit

Sub Transfer()
    Dim i           As Long

    Dim sh1         As Worksheet
    Set sh1 = ThisWorkbook.Worksheets("Sheet1")

    Dim sh2         As Worksheet
    Set sh2 = ThisWorkbook.Worksheets("Sheet2")

    Dim Rw          As Long
    Rw = ActiveCell.Row

    Dim invArr      As Variant
    invArr = Array("C8", "E6", "C6", "E4", "C4")

    For i = LBound(invArr) To UBound(invArr)
        sh2.Range(invArr(i)).Value = sh1.Cells(Rw, UBound(invArr) - i + 1).Value
    Next i

End Sub

and on Sheet2 in the specified cells we get the desired result. For clarity I have attached screenshots. Change the names of the worksheets to your own. I was glad to help you. Good luck.