add group to printer ACL

Visual Basic for Applications (VBA)

‹ Microsoft ISV
- Archive
  - Smart Device
  - Windows Forms
  - SQL Server
  - Visual Studio
  - VS Express
  - SharePoint
  - VB
  - Windows Live
  - IE
  - Architecture
  - Visual C#
  - VFP
  - ISV
  - Dotnet
  - VC++
  - Office
  - Windows Vista
  - VS 2008
  - Game

- Previous
  - 1
    - How to reference a reference error in an XL worksheet cell using VBA OK, I got it. I had to pass the cell reference to the ISERROR function. If IsError(.Cells(i, 1)) Then do something End If Tag: add group to printer ACL
  - 2
    - How to show dates in forms by the order of time? Hello, Try to set the date in the subform in Descending order. I hope it can help. Sweet Tag: add group to printer ACL
  - 3
    - Showing the printing window in Excel to print a spreadsheet. Hey, Here you go… Sub PrintDialogShow() Application.Dialogs(xlDialogPrint).Show End Sub Best Regards Cathrine Tag: add group to printer ACL
  - 4
    - VBA 6.3 String Hi, Mid(mystring,1,1) the 2nd argument is the position, being at 1 the 3rd argument is the length see help on MID, LEFT and RIGHT Tag: add group to printer ACL
  - 5
    - IsError function from VBA6.3 to v6.0 Hi, We need more information about the variables you are using particularly what information they contain. So, what is vRange Tag: add group to printer ACL
  - 6
    - Calling a function from a DLL I'm only guessing here, I've never attempted to create my own dll. Does the dll need to be registered to be available Can you put a full path name in your Lib statement, and does that work In the Visual Basic Editor, under Tools-References can you see your dll in the list of available references If so, tick the box beside it and see if that makes any difference. If not, hit the Browse button and browse to it to add it to the list. Does that make any difference Tag: add group to printer ACL
  - 7
    - VBA macro to replace hello, I've read your post. but don't fully understand it. plz explain it in detail or show the worksheet image. and fyi, i add a reference http://www.cpearson.com/excel/deleting.htm#DeleteBlankRows best regards sjoo Tag: add group to printer ACL
  - 8
    - Locking clickable labels Hi, You can not lock a Label control. Either use the Enabled property, which does effect the visual appearence of the label. Or add some test code in the Click event of the label. Tag: add group to printer ACL
  - 9
    - Error 1004 with Excel 2007 (on VISTA) on Publish method Hi, I'm trying to publish a Range in an html file from excel 2007 (OS is VISTA) and I receive an error 1004 on the Publish method. Here is the code I'm using : Code Block ' temp file name Dim TempFile As String TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ' delete any PublishObjects left Set objPObjs = ActiveWorkbook.PublishObjects For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Delete End If Next objPO ' Set the publishObject attributes ActiveWorkbook.PublishObjects.Add _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=ActiveSheet.Name, _ Source:="A1:J12", _ HtmlType:=xlHtmlStatic ' Publish the object For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Publish End If Next objPO I tried many things (including samples found on theweb) without success. Any help appreciated. Regards, Laurent. Tag: add group to printer ACL
  - 10
    - how to get the VALUE of an OUTLINENUMBER (word / macro in VB) Hi, Move this thread from Visual Basic Language Forum, this forum supports Visual Basic.NET (7, 7.1, 8, ...) issues only, so, your VBA question is an off-topic here and this isn't the best place to ask it. You can get better answers about your question from VBA support forum. Best regards, Riquel. Tag: add group to printer ACL
  - 11
    - HELP FIX THE CODE.......... Hi Doesn't the MATCH require a Range of cells rather than an Array Regards Peter Tag: add group to printer ACL
  - 12
    - Problems with VB solver code I just recorded a quick macro to check the syntax: SolverOk SetCell:="$D$5", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$5" SolverSolve Notice that Solver doesn't accept a range as an argument for ByChange, instead it accepts the address of a range as a string. In your case it is probably trying to figure out what range is listed in the value (string contents) of cell B5, since .Value is the default property of a range. You should also change SetCell to a string address. 'Set targeted cell, H16, to a value by changing the range of acceptable percentages. SolverOK SetCell:="$H$16", MaxMinVal:=3, _ ValueOf:=0.95, _ byChange:="$B$5" - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: add group to printer ACL
  - 13
    - New to Visual Basic Hi, Making use of textbox or string in this scenario will make your job,i suppose. Use a text box, when ever a button pressed , do TextBox1.Text = NumberofTheButton.ToString() & TextBox1.Text or numberstring = NumberOfTheButton.ToString() + numberString when you want the value ,convert the textbox value or sting to integer or long or what ever want. Hope this works out for your requirement. Thanks, Ch.T.Gopi Kumar. Tag: add group to printer ACL
  - 14
    - Information required : WOW64 From http://msdn2.microsoft.com/en-us/library/ms952405.aspx : WOW64 WOW64 is short for Windows-32-on-Windows-64. It provides 32-bit emulation for existing 32-bit applications, enabling most 32-bit applications to run on the 64-bit version of Windows without modification. It is similar to the old WOW32 sub-system, which was responsible for running 16-bit code under the 32-bit version of Windows. The hardware itself has a 32-bit compatibility mode, which handles actual execution of IA-32 instructions, but the WOW layer handles things like switching the processor between 32-bit and 64-bit modes and emulating a 32-bit system. For example, there are different registry hives for 32-bit and 64-bit programs. There is also a different system directory for 32-bit binaries. The 64-bit binaries still use the System32 directory, so when a 32-bit application is installed on the system, the WOW layer makes sure to put the 32-bit binaries in a new directory: SysWOW64. It does this by intercepting calls to APIs like GetSystemDirectory and returning the appropriate directory depending on whether the application is running under the WOW or not. The same issue can exist with the registry. Since both 32-bit and 64-bit COM servers can be installed on the system under the same class identifier (CLSID), the WOW layer needs to redirect calls to the registry to the appropriate 32-bit or 64-bit hives. The WOW layer also handles mirroring changes between some areas in the registry, in order to make it easier to support interoperability between 32-bit and 64-bit code. WOW64 is important because it allows you to leverage most of your existing 32-bit code when performance and scalability are not a concern. It is a best of both worlds approach. You can port your service to 64-bit and leave your Microsoft Management Console (MMC) configuration snap-in 32-bit. The 64-bit version of Windows includes both 32-bit and 64-bit versions of MMC. When choosing to leave administration tools as 32-bit there may be some issues with inter-process communication, but protocols such as Remote Procedure Call (RPC) should work between 32-bit and 64-bit processes, as long as the interfaces are designed correctly. Another thing to keep in mind about WOW64 is that it is not designed for applications that require high-performance. At the very least, the WOW64 sub-system needs to extend 32-bit arguments to 64-bits, and truncate 64-bit return values to 32-bits. In the worst case, the WOW64 sub-system will need to make a kernel call, involving not only a transition to the kernel, but also a transition from the processor's 32-bit compatibility mode to its native 64-bit mode. Applications won't be able to scale very well when run under WOW64. For those applications that you would like to leave as 32-bit, test them under WOW64. If the performance is not meeting your expectations, you'll need to look at migrating the application to 64-bit. WOW64 is implemented in user mode, as a layer between ntdll.dll and the kernel. WOW64 and some of its support DLLs are the only 64-bit DLLs that can be loaded into a 32-bit process. For all other cases, processes are kept pure. The 32-bit processes cannot load 64-bit DLLs, and vise versa. For more information about WOW64, see "64-bit Windows Programming - Running 32-bit Applications" in the MicrosoftR Platform SDK. http://msdn.microsoft.com/library/default.asp url=/library/en-us/win64/win64/running_32_bit_applications.asp Tag: add group to printer ACL
  - 15
    - MSDN Installation I've MSDN installed on my system, since i've installed it through MSDN setup (not by VS setup) Visual Studio does not recognize its presence(Ctrl+F1 doesn't work.), Is there a way I could tell visual studio about the presence of MSDN. By the way this behaviour is common in both VS 2003 as well as VS2005 Tag: add group to printer ACL
  - 16
    - error message when closing ie7 The best place to get help on IE7 is http://www.microsoft.com/windows/ie/support/default.mspx There is a newsgroup dedicated to IE issues and discussions: microsoft.public.internetexplorer.general I'm sure that someone has had the same issue and has a solution or a workaround. When you post something up there, be sure to clue them in to your operating system and which version number of IE7 you are running. You can find the version number under the Help menu > About Internet Explorer. -brenda (ISV Buddy Team) Tag: add group to printer ACL
- Next
  - 1
    - VBA XML and encoding Hello, Here is my issue. In an excel sheet, I fill in several cells which contain text. This text can be either in english / french / spanish / italien / german, which means I can have characters like "e" or "e" etc... In a vba macro I'm trying to put all these data into an XML, this XML is then processed later on by an ASP.net app I have created (using an xmlreader). The thing is, when I try to display the value of each node of my XML with my ASP.net app, some characters are replaced by squares. For example, characters like "-", "...", singlequote BUT, characters like "e" and "e" are perfectly displayed . And when I have a look into my XML file with Visual Studio I can clearly see all my characters. Everything is fine. However, when I try to save the file in VS, it warns me "that some unicode characters can't be saved in the current codepage. Do you want to resave the file as Unicode in order to maintain your data " If I click "YES" it then set the Xml Encoding to : UTF-16 And from now on, everything is displayed correctly in my ASP.net app. Here is the VBA Code which generates my XML File. Code Snippet Open strPath & cstStudyName & ".xml" For Output As 1 Print #1, "< xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & " >" Print #1, "<root>" iCurLine = cstiStartLine While objSheet.Cells(iCurLine, cstiVarCol).Value <> "" strValue = objSheet.Cells(iCurLine, iEnglisCol) Print #1, "<" & objSheet.Cells(iCurLine, cstiVarCol) & " label= " & Chr(34) & CheckContentsXML(strValue) & Chr(34) & "/>" iCurLine = iCurLine + 1 Wend Print #1, "</root>" Close #1 As you can see, I have tried to specify "ISO-8859-1" in the XML header. If I specify "UTF-8" then xmlreader is generating an error at the first weird character it encounters such as "-" If I try to specify "UTF-16", it then becomes a bunch of unreadable characters and my ASP.net display nothing. Does anyone have an idea Thanks a lot. Tag: add group to printer ACL
  - 2
    - Increase prompt in message box Display your help text in another userform. This form needs an OK button and a text box large enough to hold the text. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: add group to printer ACL
  - 3
    - Configuration Failed Hi, Can you please provide some background information on this issue What OS and product version(s) are you running What were you trying to do when you received this error thanks, -brenda (ISV Buddy Team) Tag: add group to printer ACL
  - 4
    - Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options I should add, the specific error is: "Communicator Mobile: Unable to connect to Server . Please check if correct certificates are installed." I am attempting to connect to the server via TLS.. I've entered the remote server access address.. ie: wan.domain.com We have CWA setup and it works fine.. using https://wan.domain.com:4433 (not port 443)... Do I need to have CWA on port 443, for the mobile part to work Or do I need to import a certificate from the server (I tried and it said it wasnt a valid root certificate). Tag: add group to printer ACL
  - 5
    - VBA in Excel - organizing charts as objects in a sheet See the example Code Snippet 'First SourceData Range is "A1:B5" 'Second SourceData Range is "A11:B25" 'Third SourceData Range is "A21:B45" b = ActiveSheet.Shapes.Count ' if there are other Shapes in ActiveSheet For a = 1 To 3 MyRange = Range(Sheets("Sheet1").Cells(a * 10 - 9, 1), _ Sheets("Sheet1").Cells(a * 10 - 5, 2)).Address(0, 0) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(MyRange), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" ActiveSheet.Shapes(a + b).Name = "MyChart" & a With ActiveSheet.Shapes("MyChart" & a) .Top = Sheets("Sheet1").Range(MyRange).Top .Height = Sheets("Sheet1").Range(MyRange).Height * 1.9 .Width = Sheets("Sheet1").Range(MyRange).Width * 1.9 End With Next You may not name a Chart/Shape if you will not use it at a later time Tag: add group to printer ACL
  - 6
    - AutoExec will not execute properly I order to help, i would need to see a bit more of the code you are using to create the menubar in question. (^_^; ) Tag: add group to printer ACL
  - 7
    - Determine if and where the .NET Framework is installed using VBA You can use the Registry "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Uninstall" to determine existent soft. You need to use the API-functions RegQueryValueExString, RegOpenKeyEx and others I have made this function, tomorrow I will test it (I will use PC without the FrameWork) Do you still need in it Tag: add group to printer ACL
  - 8
    - Pivot Table Macro Gary, You should be able to get the last row used on a sheet using code similar to: lastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 'get last row of data (in column 6) then you can use "=Data!$A$1:$CL$" & lastRow to set the SourceData of the Pivot Cache Whenever I've worked with pivot tables in VBA I've found it easier to work with PivotTable & PivotCache objects. The code excerpt below shows how and should give some ideas: Public Sub Pivot_OrderNumDate() Dim WBPivot As Workbook Dim lastRow As Long Dim ptRng As Range Dim PC1 As PivotCache Dim PT1 As PivotTable On Error GoTo PivotErr Set WBPivot = ThisWorkbook lastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row 'get last row of data (in column 6) WBPivot.Names.Add Name:="Database", RefersTo:="=Sheet1!$A$1:$F$" & lastRow 'add a named range set to data range Set ptRng = Cells(lastRow + 4, 1) 'Pivot table is placed 4 rows below data 'create pivot cache & table Set PC1 = WBPivot.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Database") Set PT1 = PC1.CreatePivotTable(tabledestination:=ptRng, tablename:="PT1", defaultversion:=xlPivotTableVersion10) With PT1 .ColumnGrand = False .RowGrand = False .AddFields RowFields:=Array("Order no", "Item code", "Description", "Customer no", "Date") With .PivotFields("Duration") .Orientation = xlDataField .Caption = "Sum of Duration" .Function = xlSum .NumberFormat = " :mm" '(hours:minutes!) End With .PivotFields("Customer no").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) End With ActiveSheet.Columns("A:F").AutoFit Set PT1 = Nothing Set PC1 = Nothing Set WBPivot = Nothing Exit Sub PivotErr: MsgBox "Error" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "Pivot table" End Sub Tag: add group to printer ACL
  - 9
    - how can I count # of columns between two specific columns? Hi, One way, Msgbox Range("A ").Columns.Count Although a lot depends on how you are currently identifying the 2 columns. Tag: add group to printer ACL
  - 10
    - Why the do while loop does not work? It's because the second time round the loop the code is referencing cells on the active sheet (AFFILIATE), not the original sheet. Try to use Worksheet objects, then you don't have to keep activating different sheets. Also the Else clause isn't needed as there's nothing in it. Tag: add group to printer ACL
  - 11
    - VBA and automated word generation Bindhia wrote: Hi there, I am currently working on a VBA application. There is an automated word generation available in the appliacation that serves the reporting process. If there is any Flash add-in being installed in the user's machine (can be viewed through Tools->Templates and Add-ins in MS Word) ,the applicaiton crashes down when the user tries to generate the report because the flash add-in runs initially before the word gets opened. Is there any work around available other than removing the add-in for the application to run successfully Your help is greatly appreciated Hi, This forum is for VB.Net questions only, sorry. Please see.>> http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=551512&SiteID=1 Try this VBA forum.>> http://www.programmersheaven.com/mb/ vba /Board.aspx S=B20000 Regards, S_DS Tag: add group to printer ACL
  - 12
    - Using Excel files in MS Works Hi, Works will allow you to open an xls file but you then get prompted to select the sheet you want. Looks like Works only has a single sheet. Cheap but not free: Depending on where you are using the files a Student/Home office version of 2007. Other alternatives are the open source office suites. Tag: add group to printer ACL
  - 13
    - iexplore.exe - Application Error I get the exact same message. Have you found any answers What have you tried to do Tom Tag: add group to printer ACL
  - 14
    - error with wscript.shell error 80070483 hi, i am trying to run a vb script from a VBA module in excel. fn = "test.vbs Set wshShell = CreateObject("Wscript.Shell") wshShell.Run (fn) in the line wshShell.Run (fn) i obtain an error error 80070483 method Run of object IWshShell3 failed it is the first time i do this, so i am not shure if i need to have done something before, some references in windows extension .vbs is not related to any application (is it ok ) tks in advance Tag: add group to printer ACL
  - 15
    - Obtain Unique Work Units via SQL SELECT DISTINCT Count (WorkUnitsFaultsMainTBL.WorkUnit) AS [Total Work Units], Adamus Tag: add group to printer ACL
  - 16
    - Adding Menu to Microsoft project 2007 using VBA How can I add a custom menu using VBA code. There are some changes happened in from Microsoft Project 2003 to Microsoft Project 2007. How can I add custom menu to microsoft project 2007 and make it work to invoke appropriate code. Are there any whitepaper which talks about the changes in the coding from Microsoft project 2003 to 2007. I am new to this area of coding with little knowledge of VBA. ANy help will be highly appreciated. A sample code will work wonders for me. Tag: add group to printer ACL

fkbr

Hello,

I have a print server with 200 shared printers. I need to add a group to each printer ACL with an appropriate rights (same for all printers). Is anyway to script it

Thank you

Ali

Top