Xtreme Visual Basic Talk

psd files

_Nikkiz_ — Fri, 24 May 2013 14:49:42 GMT

I'm trying to print different files on a Sato M-840Pro 600dpi printer - they are all .psd files. I've looked around and didn't come across any way to print the file through vb, unfortunately. What I'd like to know is - is it possible to open up the program(gimp) with vb and send the print command through gimp?

Dll calling in VB.

praneshkumarpj — Fri, 24 May 2013 02:34:12 GMT

Dear friends,
Iam new to this VB codes.
Objective is to make a OCR.
I tried it with dll files from www.asprise.com.

The following is my code
it gives output "runtime error 49" and "Bad dll call convention"
need your suggestions.

Private Declare Function OCRBarCodes Lib "C:\WINDOWS\system32\AspriseOCR.dll" (ByVal file As String, ByVal imageType As Long) As String
Private Declare Function OCRpart Lib "AspriseOCR.dll" (ByVal file As String, ByVal imageType As Long, ByVal startX As Long, ByVal startY As Long, ByVal width As Long, ByVal height As Long) As String
Private Declare Function OCR Lib "AspriseOCR.dll" (ByVal file As String, ByVal imageType As Long) As String
Private Sub Command1_Click()

Dim ret As Long
ret = OCR("D:\untitled.bmp", -1)
End Sub

Thanks in advance.
PRANESH

excel if statement (multiple choice and population)

evanscolin — Thu, 23 May 2013 15:30:26 GMT

Hi, I would hope there is an easy way to do this but I sem to be getting bogged down and going round and round and getting nowhere

Basically I have a spreadsheet say five columns wide, column five holds a value and columns one to four are blank,

I want to enter a date in column 1 and have the value entered in five copied to column 3, that bit I can manage but when I enter a date in column 2 I want the value held in column five copied to column 4 and column three to be returned to a blank value

Surely this is possible but I'm at a loss how to do it, can anyone help

regards, Colin

Don't know if this will explian it better

Date1(a) Date2(b) Value1(c) Value2(d) MainValue(e)

The if statement I've got in (c)
=IF(AND(ISBLANK(B2)=FALSE),E2,"")

And in (d)
=IF(AND(ISBLANK(A2)=FALSE),E2,"")

All I need to do is check if a value is in B2 and populate C2 with E2 value as it does but then set D2 to a null value or 0

Use ErrorProvider with Custom Control?

RM33 — Thu, 23 May 2013 15:04:11 GMT

I am using VB 2010.

This is my goal. I have made a custom control textbox. Management likes it when we use the ErrorProvider because it traps the user in the textbox until they enter the right stuff. Also, there is a blinking exclamation point next to the textbox that they seem to like.

My question is, how can I combine the ErrorProvider with a custom control?

Calling a function, click a link using VBA

manny123 — Thu, 23 May 2013 11:31:22 GMT

Hi
I wonder if someone might know this:
I want to get an excel file from an IE page and open it and use it in excel. The page has a database and allows, by clicking, to �export data as excel�.
I am creating an IE object using �CreateObject("InternetExplorer.Application")�
I am facing two problems:
1. I have no idea how to click the link. cant see an �ID� so I cant use GetElementByID
2. The click calls a function and I have no idea how to use vba to get it to work and neither how to get the object of the workbook it exports
This is the HTML to click (The function is ExcelBondSearchResults):

EXPORT

Many Thanks
Manny

Late Binding

CodeAdze — Wed, 22 May 2013 11:48:47 GMT

I am writting an app which makes use of automation (Excel) but I'm plagued with late binding warnings and I'm struggling to understand how to fix them. Could someone please tech me how to re-write the example code below so it doesn't give me late binding warnings, currently every line does (except the dim's and with / end with) - thanks.

Code:

Dim MyTemplate As New Excel.Worksheet

        Dim ChartPage As New Excel.Chart



        MyTemplate.Cells(2, 2).Value = "Some String"

        ChartPage.Axes(Excel.XlAxisType.xlCategory).HasTitle = True

        ChartPage.ChartGroups(1).Overlap = -100



        With MyTemplate.Cells(1, 1)

            .HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft

            .Font.Size = 11

            .Font.Name = "Calibri"

            .Font.Color = ColorTranslator.ToOle(Color.Blue)

            .Font.Bold = True

            .Value = "Some String"

        End With

SQL statement with variables in it?

bonedoc — Wed, 22 May 2013 04:42:25 GMT

So, I am doing some SQL statements to update some things in an access database. Like This:

UPDATE NOTES SET mydata = '" & thisdata & "'.......

I have used a variable in place of thisdata before. However, I have never used a variable in the place mydata. In other words, I want to be able to assign a value to the variable mydata and use this in the SQL statement to show which column I want to edit. Is this possible?

Need a VBA Function/Sub to find a cell value based on Row and Column ID.

Herrtodd — Tue, 21 May 2013 15:43:26 GMT

In the example below I need to select the value where East and RT3 intersect which is 80
A B C D E
1 null RT1 RT2 RT3 RT4
2 North 31 40 78 11
3 South 32 41 79 12
4 East 33 42 80 13
5 West 34 43 81 14

Here is what I have so far, but when I call the function I get a compile error

Function getcell (ct as string, rt as string) as range

With activesheet
R = .columns("A").find(rt).row
C = .rows("1").find(ct).Column
'The below will escape the function if none where found
If r = nothing or c = nothing then exit function
Set getcell = .cells(r, c)
End with

End function

VBA Database connections fail on 64-bit Win7

Gruff — Mon, 20 May 2013 20:48:15 GMT

I loaded the latest version of Autodesk inventor today.

The rumor is that VBA is now 64b-bit in the 2014 version

Indeed when I fire up my 64-bit pc and load Inventor 2014.
My VBA code crashes on any database connection when I use the Open() command.

Autodesk is becoming less and less responsive to programming issues.
I know they had a large layoff not long ago.

I am trying to connect to Access via Jet 4.0 and MAS 200 via a DSN.
Access just says it cannot find the driver. MAS says there is an architecture mismatch between the driver and the app.

The latter error led me to some help that talks about SysWow64, but I am in the dark as to what I need to do.

Version 2011 has no such issues. I have both versions installed on the same 64 bit PC.

Removing the lines

VB_Alien — Sun, 19 May 2013 15:42:39 GMT

I have these platform tiles that have green lines
running through them and i was wondering if anyone
knew of a way to clean it up a little?

Attached Images

PlatFormTiles1.png (393.8 KB)

Duplex Printing Excel Sheet from VB.Net

ew03 — Sat, 18 May 2013 20:31:58 GMT

Hi All,

I believe I have posted this thread in the correct place. I have a major problem to be solved. I have been develeoping excel automation application. Getting some inputs and combining with databases and writing all to the excel sheets. Up to this point everything goes smoothly. My problem arises when I want to print sheets from a printer which can duplex print. I have been searching forums and websites for weeks trying to find a feasible solution, and up to now It is all in vane. I have to print some sheets as simplex and some of them to be duplex. I tried setting duplex value of the printer from Printer.Settings by setting print.document to my workbook. I need a single tip or any suggestion to start working on the issue. I can print simplex sheets with no problem. However, I have no clue how to pirnt dublex. Many threads state it to be solved from Windows API or some modules to be used.
Please help me with this asmy hopes are melting away day by day.

Removal of any column in text file

sneha — Sat, 18 May 2013 15:44:50 GMT

Can any one help me, I have to remove a selected column in a text file
How to do this using VB6, I have tried with some of the available codes
with no success.

the file contents is as below:
(remove all '0' in the 9th column, remove 'E' in the 7th column)

No ABNo ScNo Name AMNo Make EN/EXT Backenter abcdefg DateTime
1 1 00000001 1 1 E 0 0 2013-05-13 15:00:17
2 1 00000001 1 1 E 0 0 2013-05-13 15:00:19
3 1 00000001 1 1 E 0 0 2013-05-13 15:00:23
4 1 00000001 1 1 E 0 0 2013-05-13 15:00:44

Common Progress Bar for multiple functions in a single class

calltronics — Sat, 18 May 2013 13:58:17 GMT

Hi.
I have a class "MachineServer" that enables and controls communications with a factory machine, the way it works strange as it may seem is not for me to change or ask why! I can add to the code but only to make UI better. Not the functionality or the defined interface as it has to work with other software.

Note this does not stop the use of "optional" and associated "default = NULL" in the parameters

The Class once initiated by the main form application, works by running in a timer initiated subroutine scenario.
Basically if I make a call and set a "property" within the "MachineServer" class this then starts the relative timer within the property routine.
This timer event when fired initiates the corresponding subroutine within the same class or subclass thereof.

The "MachineServer" class gets defined and becomes an object only once in the main code.

The problem I have is that I am trying to incorporate a single progress bar that can be controlled by the numerous subroutines within this "MachineServer" class.

I understand the normal and basic way of creating the background worker and feeding back the events to the progress bar.

My question to you experienced engineers - is how do I best go about solving this problem with a single Class, single progress bar and multiple subroutines that require user feedback through the single progress bar?

My first thought was to make the whole class a backgroundworker, but would this be feasible? Plus how would the multiple subroutines control the displaying of the single progress bar?
My second thought was to create the progress bar in the main application and pass it into the main "MachineServer" Class as an optional parameter, then make the subroutine run as background process with events handled by the progress bar object?

But then this all appears too too much, I appreciate any suggestions, thought or ideas.

Cheers Steve

how to convert a Logaritmic Trendline formula into Excel VBA

Marcel502 — Fri, 17 May 2013 16:22:47 GMT

Hello,

As you can see in this tread in example 3, it is possible to convert a Polynomial trendlineformule into VBA code:

http://www.xtremevbtalk.com/archive/.../t-232944.html

*) 'Example 3
Let myArr1 = Array(7, 24, 71, 160)
Let myArr2 = Array(1, 2, 3, 4)
Debug.Print Round(Evaluate("INDEX(LINEST({" & Join(myArr1, ";") _
& "},{" & Join(myArr2, ";") & "}^{1,2,3}),1)"), 8)

Currently I am looking to convert a Logaritmic Trendline into VBA code with the Join Array method. The same as above. I tried a lot, although i did not succeed.

So i am looking for the equations below (c and b) in VBA code:

Logarithmic Trendline
Equation: y = (c * LN(x)) + b
c: =INDEX(LINEST(y,LN(x)),1)
b: =INDEX(LINEST(y,LN(x)),1,2)

Does anyone know how to do this?

Thanks a lot!

regards,
Marcel

Problems converting old 32 bit app to windows 7 (access database)...

bonedoc — Fri, 17 May 2013 13:13:34 GMT

About 7 years ago, I wrote a large program for my office in visual basic. It was back when we were using XP and the database is access. Well, we have gone to windows 7 and I am very confused as to how I can use my software on my windows 7 computer. I know that there are ways to run a program in XP mode. But, I would like to open my project back up and change a few things.

I opened my old visual basic project in visual basic 2010 express, and allowed to to do the automatic conversion. Everything appears ok, but when I build the project, it appears to be crashing at my database setup lines. from what I have read, Access was built for 32 bits at the time and the new 64 bit stuff is crashing here.

Can anyone tell me what may be going on, and what would be the easiest thing to do? Here is my database string:

Code:

Dim conn As String

        conn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source="

        conn += PMTRegistry.DatabasePath

        conn += ";Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="

        conn += """"";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";"

        conn += "Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;"

        conn += "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;"

        conn += "Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;"

        conn += "Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;"

        conn += "Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"