Similar Questions

• A page element to the 'CALENDAR' page instead of 34 488 requires pixelation, but it is too large to rasterize. Resize it smaller and try again

  I get this error message,

  A page element to the 'CALENDAR' page instead of 34 488 requires pixelation, but it is too large to rasterize. Resize it smaller and try again

  This basically means that there is an object that has its upper left corner at x: 34 y: 488 which is too large to be rasterized, it could be due to any extreme wide or tall object.

  Try to check the contents of the page and then resize to verify the behavior. Please let me know how it goes.

  Thank you

  Sanjit

• DIAdem 11 Setup error: object required: navigator, display.currdataProvider

  On the Diadem 11.0 installation, I get a popup error message when I open the program first (and subsequent) time and the browser, view tab is corrupt:

  

  Object required: ' navigator, display.currdataProvider.

  Also when the program is first opened after installation, a message appears warning about mistakes during installation and to check the log file but I can't.

  I use windows vista 64 bit.

  Thank you, Steve.

  Hi Steve,.

  Thanks for the screenshots reposte - they gave R & D a better understanding of what's going on.  They now believe that the tiara installs fine and that the problem is a mismatch the launch between DIAdem and a Windows hotfix.  We see normally this problem when a DIAdem installation work for awhile and then all of a sudden does not launch after the customer installed an update of Windows or a new version/update of AutoCad or SQL Server, etc..  This fix for Windows is often bundled with other software so that you do not know that you're getting.  What it does is tell specifically Windows ignores the version (stored in the Windows registry) Windows DLL as tiara said the operating system installer to use and rather use a new version of the Windows DLL that does not work with the tiara.

  I posted an executable to our outgoing ftp site that has been very successful to this problem and allow DIAdem throw again.  Note that this file "St3ve.exe" will be there for a few days.

  ftp.ni.com/outgoing/St3ve.exe

  Please let us know either way what is happening

  Brad Turpin
  Tiara Product Support Engineer
  National Instruments

• SOUTH GetArgument error: object required

  Hi all

  It is my first serious attempt at creating a SOUTH (modal) dialog box. I did things by the book, but get the following error:

  ---------------------------
  
  Dialog editor (SOUTH)
  
  ---------------------------
  
  <20121112_M1545_postexfacto_DDMcomp.SUD,Dlg1>(Row: 14 column: 2):
  
  SOUTH event context:
  Dialog_EventInitialize (...)
  ...
  Object required: 'This.GetArgument () '.
  
  ---------------------------
  
  Ok
  
  ---------------------------

  The underlying code is the following:

  Sub Dialog_EventInitialize (ByRef This) ' creates the event handler
  
  	Define parameterList = This.GetArgument)
  
  	Call File1Input.RunInitialize
  
  	Call File2Input.RunInitialize
  
  	Call ResultFileInput.RunInitialize
  
  End Sub

  This is the second line of the Sub that is generating the error. I would be very grateful if you could tell me what I'm doing wrong.

  Hi Leo,

  I suppose that you use the object "parameterList' as a parameter in the command line that calls the dialog box in your script.

  Call SUDDlgShow (CurrentScriptPath & "SUDFileName", "DialogName", ObjectName)

  Greetings

  Walter

• How to solve ' object required: 'idMeasurementUnits' "error.

  Hi all

  I do the Indesign CS4 VB script, in which I try Horizontal and vertical value measurenment uints inches.

  The code I used as follows,

  Set myInDesign = CreateObject ("InDesign.Application.CS4")

  The value of myDocument = myInDesign.Documents.Add
  myDocument.ViewPreferences.HorizontalMeasurementUnits = idMeasurementUnits.idInches
  myDocument.ViewPreferences.VerticalMeasurementUnits = idMeasurementUnits.idInches

  Note that, when I run this script via the command prompt, it gives the following error

  «Object required: «idMeasurementUnits»»

  and when I run the script above the Indesign script Panel, then it works fine.

  But this is my requirnment to run the script through command prompt.

  So please let me know if someone has an idea how to solve this error.

  Kind regards

  Jitendra

  It is an enum:

  Enumeration	MeasurementUnits
  	The unit of measure.

  The value that you are looking for is

  MeasurementUnits.INCHES 2053729891

• Objects appear pixelated

  Hello

  I'm sort of a newbie with Illustrator and I recently bought a Pro Intuos of Wacom support.

  Also I practice a lot, trying to get better every day. Just today, I have encountered this problem.

  I was working on the face a raccoon, while suddenly, I noticed that a part of the fur (created with the pen tool) is very pixelated compared to the other part of the fur.

  I did a screen capture to make things clearer:

  

  As you can see on the full-size image the part around the eyes is very pixelated compared to the part above. I did nothing different, and I just kept when I finished the top fur, until I noticed.

  What is the problem here and I can fix it? When I export to JPEG it looks the same, and when I open the. IN Photoshop, the problem is there too.

  I already checked my settings for anti-aliasing and those who are very good.

  I hope someone can help me!

  Thank you very much!

  This happens often when there are two objects identical stancked on each other. You can check in the layer panel or just seecting and deletion.

• Align objects new pixel grid is not working - Windows 7

  Another question, I have been faced with during some time.

  Scenario:

  1. work on a web site UI, so want to use the pixel grid, which is convenient. So I create a new document, web profile, and make it safe "align new objects to the pixel grid" is enabled:

  

  2 yay! We have a nice document and own again, can't wait to begin to draw rectangles! But let's check if everything is hunky dory:

  

  3. right! Let's go and start making rectangles!

  

  4 and THIERRY! As you can see in the image above, the rectangle does not match the pixel grid (look at the values), and his "Snap on the pixel grid" option is not selected. Let's triple - check our options:

  

  So yes, there you go. It's all lies! You must check the box AFTER you create the forms for EACH shape.

  Illustrator, why are you doing this? What I'm missing here?

  Windows 7 Ultimate

  HAVE 18.1.1 (64-bit)

  kaanungur,

  I'm afraid that have met you the feature I'm sorry Rectangle Live bug where he refuses to align itself with the pixel grid.

  To get around it, in each case, it is possible to develop direct Rectangles to get the normal old shaped rectangles or Pathfinder > unit, or use the scale tool or the free transform tool.

  A more permanent way round that is to create normal old shaped rectangles, after running the free script created by Pawel, see this thread with download link:

  https://forums.Adobe.com/thread/1587587

• Placed in a text object appears pixelated

  Hello

  I created a scrolling 'text area' for my copy by creating a retangular framework and paste my textbox (with my copy) in the frame. I then used framing 'scrolling' to indicate the direction scrol, position of content... (The 'Export PDF Article Format' is set to 'Vector') It seems to work very well as to be able to scroll the text, however the police/text inside these objects appear blur or pixelated. The font I'm using is myriad all the way through, and the text that is not in the boxes seem in good condition. I'm not sure what I'm doing wrong and any help would be greatly apprected. Thank you very much.

  Make sure also that your folio format is set to v25. If it is the default value (v20) you won't get support from superimposition of vector.

  Neil

• mulitstate I object appears pixelated

  I built a multi-state object using 3 Adobe Illustrator files. I placed the renderings in the form of files HAVE native in InDesign, the page folio exported in pdf format. Seen on the retina of the iPad renders look pixelated. Not break but enough to be noticeable. I thought that if I used native files of HAVE and exported as PDF files would look sharp on the retina. Is there another way to get a higher resolution on the retina display?

  Thank you

  We had this sorted out. The fundamental problem was that the folio version has been set at 20. For vector overlays work the folio version must be v23 or later version.

  Neil

• Smart objects become pixelated when re-scaling?

  I have Photoshop CS5.5 running on Windows 7 Home Premium 64-bit. When I place the vector objects in Illustrator and then go to re - the scale of their they become pixelated. I check the box anti-aliasing before committing the place, but they still Pixelize when re-scaling.

  Here is a screenshot to illustrate what I mean...

  

  You use the tool move or edit > Free transform to scale?

  Does make a difference if you use Edition > free transform with verified anti-aliasing?

  Also in photoshop Edit > Preferences > general check that the Interpolation of the Image is set to bicubic.

  

  

• Page element requires pixelation?

  When I try to launch my site, a window pops up that says:

  "A page element on the page 'PEOPLE' instead of 948 191 ask pixelation, but is too large to rasterize.  Resize it smaller and try again. »

  I don't know where ' 948 191 ' location on the PEOPLE page, and I don't know how to resize an image while keeping the same size... Is this possible?  What's weird, is that this page has already been launched and I not made any changes to images, so I don't know why this is happening.

  Oh! I fixed it! There was a space below the last line... the slider was there and I did a back to draw the cursor at the end of the last line, and the symbol "text will be rasterized" went away and voila! He introduced a preview. Oh joy, what's next?

• Some objects are pixelated black boxes during the game.

  My computer is about 4 years old.  Reference Dell with Windows XP, 3.2 GHz, 1 GB of ram.  He was the original of the graphics card: Radeon x 600 graphics card.  I just bought Modern Warfare 2 and also bought and updated the graphics card to Radeon HD 4350 512 MB DDR2 PCI express graphics card.  Game card & graphics loaded on the computer and when I play, certain graphics come out as just black boxes.  When I see the smoke, pixlated boxes right?  Is not yet good enough graphics card or something else?  I tried to play in 1023 x 768 and 800 x 600 and had the same problem.

  I would reinstall the graphics drivers, then I would like to reinstall Direct X.  If she is still upwards, I could communicate with the support forum for Modern Warfare 2 and see if others are experiencing the same problem.  New games sometimes have strange graphics issues that have not been found in tests, and you sometimes have to wait for release a patch that corrects the problem.

  K

• Object required 'salt '.

  Hello

  I am trying to recreate the following script in vbScript: http://forums.Adobe.com/message/4173641

  The code below is what I hjave so far, but for now, I get an error described in the title of this discussion. This happens in the loop to the method "moo".

  Any light on this?

  Thank you.

  EDIT: even when I do this 'set salt = currDoc.Selection ()' he gives me an empty error?

  set appRef = CreateObject("Illustrator.Application")
  
  ''''CREATE HOST DOCUMENT
  set docPreset = CreateObject("Illustrator.DocumentPreset")
  With docPreset
     .DocumentTitle = "tmpPortfolio"
     .DocumentColorSpace = 2
     .DocumentRasterResolution = 3
     .DocumentUnits = 8
  
     .NumArtboards = 12
     .ArtboardRowsOrCols = 4
     .Width = 841.89
     .Height = 595.28
  End With
  
  appRef.Documents.AddDocument "AiDocumentColorSpace.aiDocumentCMYKColor", docPreset
  
  dim tmpDocumentLayerState
  tmpDocumentLayerState = unlockHideLayers(appRef.Documents("tmpPortfolio"))
  ''''CREATE HOST DOCUMENT
  
  
  ''''TRANSFER ARTBOARDS
  dim arrFiles(0)
  arrFiles(0) = "C:\scripts\testfiles\testing\LW - BOT3.ai"
  set currDoc = appRef.Open(arrFiles(0))
  
  dim currDocumentTitle
  dim currNumArtboards
  dim currDocumentLayerState
  dim ABsInfo()
  
  currDocumentTitle = currDoc.Name
  currNumArtboards = currDoc.ArtBoards.Count
  currDocumentLayerState = unlockHideLayers(currDoc)
  ReDim ABsInfo(currNumArtboards - 1, 1)
  
  currDoc.Activate()
  
  For i = 1 to currNumArtboards
     ABsInfo(i - 1, 0) = currDoc.artboards(i).artboardRect
     ABsInfo(i - 1, 1) = currDoc.artboards(i).name
  
     currDoc.selection = nothing
     currDoc.artboards.setActiveArtboardIndex(i - 1)
     currDoc.selectObjectsOnActiveArtboard
  
     dim sel
     sel = currDoc.selection
  
     moveObjects sel, appRef.Documents("tmpPortfolio")
  Next
  ''''TRANSFER ARTBOARDS
  
  
  ''''FUNCTIONS
  Function unlockHideLayers(doc)
     dim layerCount
     layerCount = doc.Layers.Count
     dim layerState()
     redim layerState(layerCount - 1, 1)
     For i = 1 to layerCount 
        set iLayer = doc.Layers(i)
        layerState(i - 1, 0) = iLayer.visible
        layerState(i - 1, 1) = iLayer.locked
        iLayer.visible = true
        iLayer.locked = false
     Next
     unlockHideLayers = layerState
  End Function
  
  Sub moveObjects(sel, destDoc)
     msgbox("")
     for i = 1 to sel.length
        'dim newItem
        'newItem = sel(i).duplicate destDoc.Layers(sel(i).layer.name), "ElementPlacement.PLACEATEND"
     next
  End Sub
  ''''FUNCTIONS
  

  OK, I got my work in script

  Where can someone find it interesting, it's here:

  For a small part on http://forums.adobe.com/message/4173641

  The purpose of this script is to create a portfolio for a collection of work plans (in my case with the barcode).

  First you give the number of work plans, the number of passes and page size. If your file's destination has a portfolio of empty beginning

  Then you let the script read in a CSV with the passes: styleId. imgoutline; imgabnumber; imgarticle; imgbarcode

  Everything is automated, it will now open each file have one by one and

  -all work plans side by side under your boot configuration, one line per file have duplicate.

  -correspond to the description and the barcode to the artboard, given the number of the artboard

  PS my work plans have a fixed size of 600 x 600

  set appRef = CreateObject("Illustrator.Application")
  appref.UserInteractionLevel = -1
  
  dim numArtboards, artboardRowsOrCols, presetWidth, presetHeight, errMessage
  numArtboards = 12
  artboardRowsOrCols = 4
  presetWidth = 841.89
  presetHeight = 595.28
  errMessage = ""
  
  ''''CREATE HOST DOCUMENT
  set docPreset = CreateObject("Illustrator.DocumentPreset")
  With docPreset
     .DocumentTitle = "tmpPortfolio"
     .DocumentColorSpace = 2
     .DocumentRasterResolution = 3
     .DocumentUnits = 8
  
     .NumArtboards = numArtboards
     .ArtboardRowsOrCols = artboardRowsOrCols
     .Width = presetWidth
     .Height = presetHeight
  End With
  
  appRef.Documents.AddDocument "AiDocumentColorSpace.aiDocumentCMYKColor", docPreset
  
  dim tmpDocumentLayerState
  tmpDocumentLayerState = unlockUnhideLayers(appRef.Documents("tmpPortfolio"))
  ''''CREATE HOST DOCUMENT
  
  ''''READ SOURCE
  dim fs, objTextFile, arrStr
  set ArrReaderLines = CreateObject("System.Collections.ArrayList")
  set ArrReaderLinesStyles = CreateObject("System.Collections.ArrayList")
  
  set fs=CreateObject("Scripting.FileSystemObject")
  set objTextFile = fs.OpenTextFile("C:\Book1.csv")
  Do while NOT objTextFile.AtEndOfStream
     arrStr = split(objTextFile.ReadLine,";")
  
     If(not ArrReaderLinesStyles.Contains(CStr(arrStr(0)))) Then
        If(IsNumeric(arrStr(0))) Then
           ArrReaderLinesStyles.Add(CStr(arrStr(0)))
        End If
     End If
  
     dim obj
     set obj = New ReaderLines
     obj.propIdStyle = arrStr(0)
     obj.propImgOutline = arrStr(1)
     obj.propImgAbNumber = arrStr(2)
     obj.propImgArticle = arrStr(3)
     obj.propImgBarcode = arrStr(4)
     ArrReaderLines.Add obj
     set obj = Nothing
  Loop
  objTextFile.Close
  set objTextFile = Nothing
  set fs = Nothing
  ''''READ SOURCE
  
  ''''ARTBOARDS
  dim destDocRowNumber, destDocColNumber
  destDocRowNumber = 0
  destDocColNumber = 0
  
  set charStyleA = appRef.Documents("tmpPortfolio").CharacterStyles.Add("tmpCharStyleA")
  With charStyleA.CharacterAttributes
     .Size = 36
     .TextFont = appRef.TextFonts.getByName("MyriadPro-Regular")
  End With
  set charStyleB = appRef.Documents("tmpPortfolio").CharacterStyles.Add("tmpCharStyleB")
  With charStyleB.CharacterAttributes
     .Size = 88
     .TextFont = appRef.TextFonts.getByName("CodeEAN13")
  End With
  set parStyle = appRef.Documents("tmpPortfolio").ParagraphStyles.Add("tmpParStyle")
  With parStyle.ParagraphAttributes
     .Justification = 2
  End With
  
  for each itrIdStyle in ArrReaderLinesStyles
     dim currDocLayerState
     dim currDocTitle
     dim currDocNumArtboards
     for each itrObj in ArrReaderLines
        if(CStr(itrIdStyle) = CStr(itrObj.propIdStyle)) then
           set currDoc = appRef.Open(itrObj.propImgOutline)
           currDocLayerState = unlockUnhideLayers(currDoc)
       currDocTitle = currDoc.Name
       currDocNumArtboards = currDoc.ArtBoards.Count
  
       destDocRowNumber = destDocRowNumber + 1
           destDocColNumber = 0
  
           exit for
        end if
     next          
  
     For i = 1 to currDocNumArtboards
        currDoc.Activate()
        currDocABname = currDoc.artboards(i).name
        currDocABrect = currDoc.artboards(i).artboardRect
        currDoc.selection = null
        currDoc.artboards.setActiveArtboardIndex(i - 1)
        currDoc.selectObjectsOnActiveArtboard
        currDoc.Copy
  
        appRef.Documents("tmpPortfolio").activate
        set destDocAB = appRef.Documents("tmpPortfolio").artboards.add(currDocABrect)
        Select case Len(destDocRowNumber)
           case 1
              destDocAB.name = "00" & destDocRowNumber & "_" & currDocABname
           case 2
              destDocAB.name = "0" & destDocRowNumber & "_" & currDocABname
           case 3
              destDocAB.name = destDocRowNumber & "_" & currDocABname
        End Select
  
        dim leftMeas, topMeas, rightMeas, bottomMeas, spaceHeight, txtHeightA, txtHeightB
        spaceHeight = 20
        txtHeightA = 50
        txtHeightB = 100
  
        ''''set start point
        destDocABrect = destDocAB.artboardRect
        leftMeas = destDocABrect(0)
        topMeas = destDocABrect(1)
        rightMeas = destDocABrect(2)
        bottomMeas = destDocABrect(3)
        destDocABrect(0) = 0 'LEFT
        destDocABrect(1) = 0 'TOP
        destDocABrect(2) = destDocABrect(2) - leftMeas 'RIGHT
        destDocABrect(3) = destDocABrect(3) - topMeas 'BOTTOM
        appRef.Documents("tmpPortfolio").artboards(appRef.Documents("tmpPortfolio").artboards.count).artboardRect = destDocABrect
  
        ''''re-place
        destDocABrect = appRef.Documents("tmpPortfolio").artboards(appRef.Documents("tmpPortfolio").artboards.count).artboardRect
        bottomMeas = destDocABrect(3) - ((numArtboards / artboardRowsOrCols) * presetHeight) - (destDocRowNumber * (600 + spaceHeight + txtHeightA + txtHeightB))
        topMeas = destDocABrect(1) - ((numArtboards / artboardRowsOrCols) * presetHeight) - (destDocRowNumber * (600 + spaceHeight + txtHeightA + txtHeightB))
        rightMeas = destDocABrect(2) + (destDocColNumber * (600 + spaceHeight))
        leftMeas = destDocABrect(0) + (destDocColNumber * (600 + spaceHeight))
        destDocABrect(3) = bottomMeas 'BOTTOM
        destDocABrect(1) = topMeas 'TOP
        destDocABrect(2) = rightMeas 'RIGHT
        destDocABrect(0) = leftMeas 'LEFT
        appRef.Documents("tmpPortfolio").artboards(appRef.Documents("tmpPortfolio").artboards.count).artboardRect = destDocABrect
  
        ''''add text
        destDocABrect = appRef.Documents("tmpPortfolio").artboards(appRef.Documents("tmpPortfolio").artboards.count).artboardRect
  
        set rectRefA = appRef.Documents("tmpPortfolio").PathItems.Rectangle(destDocABrect(3), destDocABrect(0), 600, txtHeightA) 'y, x, w, h
        set txtFrameA = appRef.Documents("tmpPortfolio").textFrames.AreaText(rectRefA)
        set rectRefB = appRef.Documents("tmpPortfolio").PathItems.Rectangle(destDocABrect(3) - txtHeightA, destDocABrect(0), 600, txtHeightB) 'y, x, w, h
        set txtFrameB = appRef.Documents("tmpPortfolio").textFrames.AreaText(rectRefB)
        for each itrObj in ArrReaderLines
           if(CStr(itrIdStyle) = CStr(itrObj.propIdStyle)) then
              if(CInt(i) = CInt(itrObj.propImgAbNumber)) then
                 txtFrameA.contents = CStr(itrObj.propImgArticle)
                 charStyleA.ApplyTo txtFrameA.TextRange
                 parStyle.ApplyTo txtFrameA.TextRange
                 set txtFrameA = Nothing
                   set rectRefA = Nothing
  
                   if(not CStr(itrObj.propImgArticle) = "OUTLINE") then
                      if(validChecksum(CStr(itrObj.propImgArticle), CStr(itrObj.propImgBarcode)) = True) then
                         dim nettBarcode
               nettBarcode = CStr(itrObj.propImgBarcode)
               dim rawBarcode
               rawBarcode = Left(nettBarcode, 1)
               For bar = 2 to 13
                  if(bar < 8) then
                     rawBarcode = rawBarcode & FirstSix(Left(nettBarcode, 1), bar, Mid(nettBarcode, bar, 1))
                     if(bar = 7) then
                        rawBarcode = rawBarcode & "*"
                     end if
                  elseif(bar > 7) then
                     rawBarcode = rawBarcode & LastSix(Mid(nettBarcode, bar, 1))
                  end if
               Next
               rawBarcode = rawBarcode & "+"
                         txtFrameB.contents = rawBarcode
  
                         charStyleB.ApplyTo txtFrameB.TextRange
               parStyle.ApplyTo txtFrameB.TextRange
                      else
                         txtFrameB.contents = errMessage
  
                         charStyleA.ApplyTo txtFrameB.TextRange
               parStyle.ApplyTo txtFrameB.TextRange
                      end if
                   else
                      txtFrameB.contents = ""
                   end if
                   set txtFrameB = Nothing
                   set rectRefB = Nothing
              end if
           end if
        next
  
        bottomMeas = destDocABrect(3) - txtHeightA - txtHeightB
        destDocABrect(3) = bottomMeas 'BOTTOM
        appRef.Documents("tmpPortfolio").artboards(appRef.Documents("tmpPortfolio").artboards.count).artboardRect = destDocABrect
  
        ''''paste selection
        appRef.Documents("tmpPortfolio").Paste
        selectedObjects = appRef.Documents("tmpPortfolio").Selection
        For j = 0 to UBound(selectedObjects)
           set topobject = selectedObjects(j)
           topobject.top = topMeas - 300 + (topobject.height / 2) 'TOP
           topobject.left = leftMeas + 300 - (topobject.width / 2) 'LEFT
           set topobject = Nothing
        Next
  
        destDocColNumber = destDocColNumber + 1
  
        set selectedObjects = Nothing
        set currDocABname = Nothing
        set currDocABrect = Nothing
        set destDocABrect = Nothing
        set destDocAB = Nothing
     Next
     set currDocLayerState = Nothing
     currDoc.Close(2)
     set currDocLayerState = Nothing
     set currDoc = Nothing
  next
  
  lockHideLayers appRef.Documents("tmpPortfolio"), tmpDocumentLayerState
  
  set parStyle = Nothing
  set charStyleA = Nothing
  set charStyleB = Nothing
  set ArrReaderLines = Nothing
  set ArrReaderLinesStyles = Nothing
  set docPreset = Nothing
  set appRef = Nothing
  ''''ARTBOARDS
  
  ''''FUNCTIONS
  Function unlockUnhideLayers(doc)
     dim layerCount
     layerCount = doc.Layers.Count
     dim layerState()
     redim layerState(layerCount - 1, 1)
     For i = 1 to layerCount
        set iLayer = doc.Layers(i)
        layerState(i - 1, 0) = iLayer.visible
        layerState(i - 1, 1) = iLayer.locked
        iLayer.visible = true
        iLayer.locked = false
        set iLayer = Nothing
     Next
     unlockUnhideLayers = layerState
  End Function
  Sub lockHideLayers(docOut, layerStateOut)
     dim layerCount
     layerCount = docOut.Layers.Count
     For i = 1 to layerCount
        set iLayer = docOut.Layers(i)
        iLayer.visible = layerStateOut(i - 1, 0)
        iLayer.locked = layerStateOut(i - 1, 1)
     Next
  End Sub
  Function validChecksum(nettArticle, nettBarcode)
     '12 = 1, 11 = 2, 10 = 3 etc
     dim oddEven, odds, evens
     odds = 0
     evens = 0
     for ind = 12 to 1 step - 1
        oddEven = ind Mod 2
        if(oddEven = 0) then
           odds = odds + Mid(nettBarcode, ind, 1)
        else
           evens = evens + Mid(nettBarcode, ind, 1)
        end if
     next
  
     dim resultA, resultB, resultC
     resultA = (3 * odds) + evens
     resultB = (3 * odds) + evens
     oddEven = resultB mod 10
     Do Until oddEven = 0
        resultB = resultB + 1
        oddEven = resultB mod 10
     Loop
     resultC = resultB - resultA
     if(CInt(resultC) = CInt(Mid(nettBarcode, 13, 1))) then
        validChecksum = True
     else
        errMessage = "NaB - " & nettBarcode & " CSum=" & resultC
        validChecksum = False
     end if
  End Function
  Function FirstSix(prefixDigit, suffixDigitIndex, suffixDigit)
     dim useTable
     useTable = "A"
     Select Case prefixDigit
        Case 1
           Select Case suffixDigitIndex : Case 4, 6, 7 : useTable = "B" :  End Select
        Case 2
           Select Case suffixDigitIndex : Case 4, 5, 7 : useTable = "B" :  End Select
        Case 3
           Select Case suffixDigitIndex : Case 4, 5, 6 : useTable = "B" :  End Select
        Case 4
           Select Case suffixDigitIndex : Case 3, 6, 7 : useTable = "B" :  End Select
        Case 5
           Select Case suffixDigitIndex : Case 3, 4, 7 : useTable = "B" :  End Select
        Case 6
           Select Case suffixDigitIndex : Case 3, 4, 5 : useTable = "B" :  End Select
        Case 7
           Select Case suffixDigitIndex : Case 3, 5, 7 : useTable = "B" :  End Select
        Case 8
           Select Case suffixDigitIndex : Case 3, 5, 6 : useTable = "B" :  End Select
        Case 9
           Select Case suffixDigitIndex : Case 3, 4, 6 : useTable = "B" :  End Select
     End Select
  
     dim useChar
     useChar = "NaN"
     Select Case suffixDigit
        Case 0
           Select Case useTable : Case "A" : useChar = "A" : Case "B" : useChar = "K" : End Select
        Case 1
           Select Case useTable : Case "A" : useChar = "B" : Case "B" : useChar = "L" : End Select
        Case 2
           Select Case useTable : Case "A" : useChar = "C" : Case "B" : useChar = "M" : End Select
        Case 3
           Select Case useTable : Case "A" : useChar = "D" : Case "B" : useChar = "N" : End Select
        Case 4
           Select Case useTable : Case "A" : useChar = "E" : Case "B" : useChar = "O" : End Select
        Case 5
           Select Case useTable : Case "A" : useChar = "F" : Case "B" : useChar = "P" : End Select
        Case 6
           Select Case useTable : Case "A" : useChar = "G" : Case "B" : useChar = "Q" : End Select
        Case 7
           Select Case useTable : Case "A" : useChar = "H" : Case "B" : useChar = "R" : End Select
        Case 8
           Select Case useTable : Case "A" : useChar = "I" : Case "B" : useChar = "S" : End Select
        Case 9
           Select Case useTable : Case "A" : useChar = "J" : Case "B" : useChar = "T" : End Select
     End Select
     FirstSix = useChar
  End Function
  Function LastSix(suffixDigit)
     dim useChar
     useChar = "NaN"
     Select Case suffixDigit
           Case 0
              useChar = "a"
           Case 1
              useChar = "b"
           Case 2
              useChar = "c"
           Case 3
              useChar = "d"
           Case 4
              useChar = "e"
           Case 5
              useChar = "f"
           Case 6
              useChar = "g"
           Case 7
              useChar = "h"
           Case 8
              useChar = "i"
           Case 9
              useChar = "j"
     End Select
     LastSix = useChar
  End Function
  ''''FUNCTIONS
  
  ''''INLINE CLASS
  Class ReaderLines
     Public propIdStyle
     Public propImgOutline
     Public propImgAbNumber
     Public propImgArticle
     Public propImgBarcode
  End Class
  ''''INLINE CLASS
  

• When I try to play the game, I bought I get an error message saying no pixel shader 2.0 support

  I hope that there's enough information in the title area

  Hello Johndruck.

  Pixel Shader 2 designates a characteristic of the graphics cards.  In this case, it seems that the game requires Pixel Shader 2 but does not support your hardware.

  If you mention the particular game and this specific graphics card we can know if it is indeed the case, in which it is not that you can do about it.  Or if something happens.

  If you don't know what graphics card you have to take a look at http://www.windowsresource.net/vista/guides/hardware.php

  Paul Smith - MVP for Windows desktop experience... I crawled off NNTP - for now. Detachment Aldershot, United Kingdom. On the internet at windowsresource.net and dasmirnov.net. Please post back to let us know what works and what does not. :-)

• Flattening of the dynamic objects to the original document and keep their Hi-Rez detail detail

  Hello, I am under difficulties with ram collapse my Photoshop files, please let me know if this is how to use smart objects for their Hi-Rez details, change your object voluntarily collapse / compress in the original document while retaining all of your changes and detail Hi-Rez to save on ram? If If Yes, what is the procedure?  I searched everywhere on the net and have not found an answer to this question.  I'm under that Photoshop CS6 extended on OSX 10.9 Mavericks.

  Thank you

  KARRRRMA wrote:

  (You definitely lose any advantage that Smart Objects give you when you flatten (the same applies to any other characteristic, such as layer masks).) Flattening is usually used to save on resources (such as Trevor mentioned).)

  Thank you, Warunicorn, I do understand that you lose the benefits of dynamic objects, I guess what I'm trying to ask is to make you lose the appearance that smart objects gave you when you group documents? For me if the image looks still even with objects with or without smart objects their pixelated it does not matter that smart objects or they aren't. I seek only the general appearance, is he always looks good as he has done with smart objects. ?

  Thank you for your help,

  Abby

  When just flattening? Of course, they look alike. It's when you go to register in a particular format is where things start to get sticky. (As the backup format JPEG.)