Code: Select all
ii_rc = doc1.ConnectToNewObject("CDIntfEx.Document.4")
IF ii_rc = 0 THEN
doc1.Open(s_filename)
doc1.Print( s_printer_name, 1, doc1.PageCount, l_copies)
END IF
Code: Select all
ii_rc = doc1.ConnectToNewObject("CDIntfEx.Document.4")
IF ii_rc = 0 THEN
doc1.Open(s_filename)
doc1.Print( s_printer_name, 1, doc1.PageCount, l_copies)
END IF