Cyberonimo Posted March 22, 2016 Posted March 22, 2016 Hi please help to translate this to autoit Dim myPrintServer As New PrintServer("\\theServer") regards in advance
Cyberonimo Posted March 22, 2016 Author Posted March 22, 2016 Hi more specifically Dim ps As New LocalPrintServer() please help to translate to autoit
Moderators JLogan3o13 Posted March 22, 2016 Moderators Posted March 22, 2016 @Cyberonimo you need to be more specific about what you want to do with the Printer object once created. Are you trying to create a connection to a printer? Delete one? etc. "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum!
Cyberonimo Posted March 22, 2016 Author Posted March 22, 2016 Hi Thanks for your Help i want to add the localprintserver and to configure it. add printers, etc.
Moderators JLogan3o13 Posted March 22, 2016 Moderators Posted March 22, 2016 @Cyberonimo the forum has an awesome search feature that is worth trying if you are unsure where to begin. It would have led you to this, which sounds like it is just what you're after: "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum!
Cyberonimo Posted March 22, 2016 Author Posted March 22, 2016 Thanks I check the topic, and is very useful, but dont have function to add print server can you help me, to translate this to autoit ' -------------------- GetPrintXpsDocumentWriter() ------------------- ''' <summary> ''' Returns an XpsDocumentWriter for the default print queue.</summary> ''' <returns> ''' An XpsDocumentWriter for the default print queue.</returns> Private Function GetPrintXpsDocumentWriter() As XpsDocumentWriter ' Create a local print server Dim ps As New LocalPrintServer() ' Get the default print queue Dim pq As PrintQueue = ps.DefaultPrintQueue ' Get an XpsDocumentWriter for the default print queue Dim xpsdw As XpsDocumentWriter = PrintQueue.CreateXpsDocumentWriter(pq) Return xpsdw End Function ' end:GetPrintXpsDocumentWriter() thanks for your patience I will appreciate it
Moderators JLogan3o13 Posted March 22, 2016 Moderators Posted March 22, 2016 The second function in that UDF is _AddPrinter. How does that not meet your needs? "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum!
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now