Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VBA SAGE ACCPAC 300

Status
Not open for further replies.

shayd

Programmer
Dec 12, 2013
31
SA
please i have exception in line 4 when Session.GetPrintSetup(" ", " ") excuted

1 Dim rpt As AccpacCOMAPI.AccpacReport
2 rpt = Session.ReportSelect("OEQUOT01[OEQUOT01.RPT]", " ", " ")
3 Dim rptPrintSetup As AccpacCOMAPI.AccpacPrintSetup
4 rptPrintSetup = Session.GetPrintSetup(" ", " ")
5 rptPrintSetup.DeviceName = "HP LaserJet P3010 Series UPD PS"
6 rptPrintSetup.OutputName = "WSD-ad0e8bc6-396c-4e50-84c7-fab17beaf18a.006a"



please find the attached picture
 
 http://files.engineering.com/getfile.aspx?folder=06d23bf5-9d23-4072-9b75-b17d95cfe5c0&file=Untitled.png
Did you try this ?
[!]Set[/!] rptPrintSetup = Session.GetPrintSetup(" ", " ")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top