createReport[data_List,repName_String]:=Module[{report},
report = CreateDocument[Null
, PageHeaders -> {{None, None, None}, {None, None, None}}
,"PaperSize" -> {100., 842.}
];
Scan[
Paste[report, #];
NotebookWrite[report,Cell["", "PageBreak", PageBreakBelow -> True]];&
,data
]
SetOptions[report,
PrintingOptions -> {
"PaperSize" -> {696., 842.}
(*,"FirstPageHeader" -> True*)
(*,"FirstPageFooter" -> True*)
,"PageHeaderMargins" -> {0, 0}
,"PageFooterMargins" -> {0, 0}
,"PrintingMargins" -> {{0, 0}, {10, 20 (*topMargin*)}}