You need to filter your report in preview, then save your PDF and close the report, like:
Do Until .EOF = True
DoCmd.OpenReport "toner", acPreview, , "ID =" & rs!ID
DoCmd.OutputTo acOutputReport, "toner", acFormatPDF, cesta & kod & rs!ID & ".pdf", True...