|
I have this code (see below) that looks promising...
I run this whole command independently and it runs successfully but when I used it for my new code it displays an Compile Error: Variable Not defined at the following line:
AcroDDEFailed = False
txtAcrobatDDE.LinkMode = 0 <-----------------------ERROR
txtAcrobatDDE.LinkTopic = "acroview|control"
txtAcrobatDDE.LinkMode = 2
By the way, my code who call the function to print is the following:
Sub PrintAdobePDF(sFileName As String)
Dim PDFArray As Variant
ReDim PDFArray(0 To 0)
PDFArray(0) = sFileName
PrintPDFs PDFArray
End Sub
I also have Adobe Reader installed on my PC. And also, as i said earlier, the code below successfully printed a existing pdf file.
Please help me with this issue...
******************** CODE I RESEARCHED *****************************
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Private Sub Command1_Click()
Dim file_name As String
file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "test.pdf"
Dim PDFArray As Variant
ReDim PDFArray(0 To 0)
PDFArray(0) = file_name
PrintPDFs PDFArray
End Sub
Private Sub PrintPDFs(PDFArray As Variant)
'' Accepts one dimensional array PrintPDFs containing paths to .PDF files to be printed,
'' then silently prints them using DDE. Acrobat Reader does not support OLE, and silent
'' printing through the pdf.oxc has some issues in v5.1 and higher
''
'' pdf.ocx is an unsupported, non-developement tool that is subject to change in functionality.
'' Under Acrobat 5.1 and higher, a warning dialog is displayed each time printAllFit() is called.
'' If "Do not ask me again" is selected, printing from script will *fail* unless the user opens
'' acrobat reader, goes to tools>options and "Resets all warnings".
'' "Do not ask me again" is stored in:
'' HKCU\Software\Adobe\Acrobat Reader\5.0\AVAlert\cCheckbox\cEWH\iWarnScriptPrintAll
'' HKCU\Software\Adobe\Acrobat Reader\6.0\AVAlert\cCheckbox\cEWH\iWarnScriptPrintAll
''
'' This sub requires:
'' - PDFArray starts at row 0, not row 1
'' - TextBox txtAcrobatDDE
'' - declaration of API function FindExecutable
''
'' ** WILL NOT WORK FROM AN ACTIVEX DLL **
''
On Error GoTo ErrHandler
Dim Error282Count As Integer '' Count of "Can't open DDE channel" errors
Dim AcroDDEFailed As Boolean '' Set to true if a DDE connection cannot be established
Dim sPDFPath As String '' Path to a PDF file
Dim sCmd As String '' DDE command
Dim lStatus As Long '' response from ShellExecute command
Dim n As Integer '' for iterating
Const Max282Errors = 6 '' Number of times we will ignore "Can't open DDE channel" errors
'' before accepting the fact that Acrobat is not started. We need
'' to test more than once, because it might just be busy loading
Dim sAcroPath As String '' Path to acrobat, determined by FindExecutable
Dim bCloseAcrobat As Boolean '' If we open acrobat, we will close it when we are done
'' If acrobat is already running (and hidden), shelling it will cause it to be shown.
'' We do not want that. So try a DDE connect, which will fail if acrobat is not running
'' I have looked at other API means of testing this, but it may be running as a process (no window)
'' and there does not seem to be many graceful ways of testing for this.
Error282Count = Max282Errors '' we only need to try once to see if it is already running.
AcroDDEFailed = False '' ErrHandler will set to true if Acro is not running
txtAcrobatDDE.LinkMode = 0 '' Close any current DDE Link
txtAcrobatDDE.LinkTopic = "acroview|control" '' Acrobat's DDE Application|Topic
txtAcrobatDDE.LinkMode = 2 '' Try to establish 'Manual' DDE Link. This will fail
'' if Acrobat is not ready (or in this case, not running)
If AcroDDEFailed = True Then
'' We could not set our linkmode, so Acro is not running. Find it and launch it
sPDFPath = PDFArray(0) '' grab the first pdf path. We assume this file exists
'' Use the FindExecutable API function to grab the path to our PDF handler.
'' This should be Acrobat Reader or Acrobat, but it might be something else.
'' When we try to DDE link to it, non-acrobat will error out. This is ok.
sAcroPath = String(128, 32)
lStatus = FindExecutable(sPDFPath, vbNullString, sAcroPath)
If lStatus <= 32 Then
MsgBox "Acrobat could not be found on this computer. Printing cancelled", vbCritical, "Problem"
Exit Sub
End If
'' Launch the PDF handler
lStatus = Shell(sAcroPath, vbHide)
If (lStatus >= 0) And (lStatus <= 32) Then
MsgBox "An error occured launching Acrobat. Printing cancelled", vbCritical, "Problem"
Exit Sub
End If
bCloseAcrobat = True '' We will try to close Acrobat when we are done
End If
PauseFor 2 '' Lets take a break here to let Acrobat finish loading
Error282Count = 0 '' This time, we will allow all acceptable tries, as
AcroDDEFailed = False '' Acrobat is running, but may be busy loading its modules
txtAcrobatDDE.LinkMode = 0
txtAcrobatDDE.LinkTopic = "acroview|control"
txtAcrobatDDE.LinkTimeout = 2500 ' 3 minute timeout delay. Should be moer than enough
txtAcrobatDDE.LinkMode = 2
If AcroDDEFailed = True Then
MsgBox "An error occured connecting to Acrobat. Printing cancelled", vbCritical, "Problem"
Exit Sub
End If
'' Send the PDF's to the printer. In my testing, this was very immediate
For n = 0 To UBound(PDFArray)
'' We need to put the long filenames in quotes. Again, we assume these file exist
sPDFPath = PDFArray(n)
sCmd = "[FilePrintSilent(" & Chr(34) & sPDFPath & Chr(34) & ")]"
txtAcrobatDDE.LinkExecute sCmd
Next
If bCloseAcrobat = True Then
'' [AppExit()] causes memory errors with v6.0 and 6.1, so avoid closing these versions
If InStr(sAcroPath, "6.0") = 0 Then
sCmd = "[AppExit()]"
txtAcrobatDDE.LinkExecute sCmd
End If
End If
'' Close the DDE Connection
txtAcrobatDDE.LinkMode = 0
Exit Sub
ErrHandler:
If Err.Number = 282 Then '' Can't open DDE channel
'' This error may happen because Acro is not fully loaded.
'' Give it Max282Errors attempts before returning AcroDDEFailed = True
Error282Count = Error282Count + 1
If Error282Count <= Max282Errors Then
PauseFor 3
Resume
Else
AcroDDEFailed = True
Resume Next
End If
End If
MsgBox "Error in PrintPDFs sub of " & Me.Name & " form. Error# " & Err.Number & " " & Err.Description & "."
End Sub
Private Sub PauseFor(iSeconds As Integer)
'' Pauses for iSecond seconds
Dim sngTimer As Single
sngTimer = Timer
While Timer - sngTimer < iSeconds
DoEvents
Wend
End Sub
|
|
|
|
|
The error says that you don't have something called "txtAcrobatDDE" defined anywhere. From the example code you posted, I'm assuming this would be a textbox control named "txtAcrobatDDE".
|
|
|
|
|
Hi Dave,
Thanks for your continuous responses... I can can now print PDF files...
Thanks a lot...
|
|
|
|
|
hi. how can I convert a string to integer? I'm doing a program in VB were you are required to input a
mathematical formula in a single input box and value each of the integer. But when I use the Left command,
the formula of the textbox are converted into string type and won't compute the value as in the formula
indicated. I really need your help. thanks..
|
|
|
|
|
There is nothing built into VB.NET or the .NET Framework that's going to evaluate expressions typed into a textbox. You have to create your own expression parsing engine to break the input down into something you can do the math on, piece-by-piece. Google for "Reverse Polish Notation" for an intro to expression engines. There are certainly other implementations to do this, but RPN is good place to start.
|
|
|
|
|
Hi,
If U want to convert text in to integer then simply U can use it:-
<br />
dim s as string<br />
dim i as integer<br />
<br />
s="200"<br />
i=val(s) 'This function converts the string in integer<br />
<br />
<br />
Best Of Luck![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
|
|
|
|
|
Did you read the OP's question? He said the text box contains a "mathematical formula".
Upcoming FREE developer events:
* Developer! Developer! Developer! 6
* Developer Day Scotland
My website
|
|
|
|
|
Have you considered looking at this[^] article to get an understanding on evaluating formulae in a textbox. I know it's in C#, but using a tool like Reflector it's relatively simple to revert the IL into VB.NET.
|
|
|
|
|
I'm doing a project entitled "SMS Environment for Bus Time Arrival". What it means is that a user can SMS to the server asking for what time will the bus arrive at that particular bus stop. I've done the SMS part but I do not know how to extract the bus information from the database and how to create the database. Hopefully someone will be able to help.
Mistreated.
|
|
|
|
|
Mistreated wrote: I do not know how to extract the bus information from the database and how to create the database.
Since you don't have a database, that's going to be pretty difficult.
Mistreated wrote: Hopefully someone will be able to help.
There isn't enough information to tell you much of anything other than gather the requirements for your database. What pieces of information are you going to track? How do these piece relate to each other?
|
|
|
|
|
If you are part of the SBS team, you will be provided the information on how to retrieve the information from their server.
If it is a school project, you wont be able to get the actual information from SBS. What you can do is mock the bus arrival information (DateTime, Bus number, ETA of certain bus stop) and put them in a database, if the main focus of the project is the SMS part, not the arrival prediction part.
|
|
|
|
|
Can you help me with the codes of how to extract the information from the database? Lets say i mock all the bus information such as the arrival time and the location of the bus stop.
Mistreated
|
|
|
|
|
Some ideas which may help !!!
Bus stop data: Stop name is not unique. There's probably 100's of 'High street' . Also there will be a bus stop on the other side of the road. Each stop must have unique ID.
Time tables : In most cases are not 'rich' enough and the published one's are full of cryptic codes like FO - Fridays only. Even worse will be the subscripts (1) - 'Only runs on market days'
Bus number: Every bus Co. will have a 1 service. So in even in your area there may be several same number buses. Make a Service number unique example FR001 - for the First service number 1.
Routes - You will need a route. Time tables mostly give 'Timing points' leaving out intermediate stops. Don't assume each Bus no 1 goes the same route. Think about school runs.
You will need to simplify this very complicated situation but highlight in your project where you have simplified and why..
So you should have a minimum of three relational tables Bus stop, Bus, Route.
Each query will take the form of "What is the next bus stopping at this bus stop" or "What is the time of the next number 1 at this bus-stop"
Hope this not to confusing.
Bestbefore
|
|
|
|
|
What is the difference between typed and untyped data sets?
Which one is better to use?
I think I should use typed datasets. Am I right.
|
|
|
|
|
AAGTHosting wrote: What is the difference between typed and untyped data sets?
Read[^]
|
|
|
|
|
Yup , can anyone elaborate the difference between TYPED and UNTYPED DAtasets?
ADVANTAGES and DIsADVANTAGES
any working example of how they work? 
:- Rashid Ali -:
|
|
|
|
|
I have been using Visual Basic.Net 2003 to develop a program. I switched to using Visual Basic 2005 Express. I set up a data adapter in 2003 and when I converted the program to 2005 the data adapter did not work. Then I deleted the data adpater and when I tried to find a data adapter I could not find one?
Do we use data adapters in Visual Basic 2005?
What is the difference between connecting to a database, setting up a data adapter and data set between VB 2003 and VB 2005.
When I created a data set in VB 2005 I noticed a file named dataSet1.vb that had a class named dataset1 in it. I don't think that VB 2003 created a dataSet class.
Does anyone know where there is a document describing how to set up a data adpater and data set in 2005?
|
|
|
|
|
AAGTHosting wrote: What is the difference between connecting to a database, setting up a data adapter and data set between VB 2003 and VB 2005
It's no different, in code. If you're using the designers to do it, the 2005 designers do things a bit differently than 2003, favoring the use of the newer TableAdpater class.
Personally, I just about never use the designers to do my database work. I code my Data layers almost entirely by hand.
Seriously, if you want to learn how to fix problems like this, you MUST know how the controls and classes work in your code and not let the designers generate the "magical code" for you.
Dim conn As String = "...connection string..."
Dim comm As String = "SELECT field, field, field FROM table WHERE expression"
Dim da As New SqlDataAdapter(comm, conn)
Dim cb As New SqlCommandBuilder(da)
Dim dt As New DataTable
da.Fill(dt)
|
|
|
|
|
What is the purpose of the data Set class that gets generated when you create a data set?
Also, how do I create a data adapter? Does the data adapter get created automatically when creating a data set.
Do you normally only create one data set in a program or do you create multiple data sets?
Now, I do have several different tables. I have login tables, teachers tables and student tables.
|
|
|
|
|
How to import a MFC/C++ DLL into VB.NET 2005?
Network Development Kit 2.0
http://www.codeproject.com/internet/ndk.asp
I want to use this dll..
 
|
|
|
|
|
You can do this using P/Invoke. Click[^]
|
|
|
|
|
Hi,
I have a excel sheet, in that the fields are:
Name,EmployeeID,Address,Email.
Sourabh,757,New Bombay,something@something.com
I have a C1.Win.FlexGrid in which I have put the same columns in this grid with one more colum in the starting as Select(Boolean).
This is the code that I have written.....
<br />
Dim ofd As New OpenFileDialog<br />
Dim dgtemp As C1.Win.C1FlexGrid.C1FlexGrid<br />
Dim fn As String = ""<br />
Dim sheetname() As String<br />
<br />
ofd.AddExtension = True<br />
ofd.DefaultExt = ".xls"<br />
ofd.Filter = "Microsoft Excel Workbook(*.xls)|*.xls"<br />
ofd.ShowDialog()<br />
fn = ofd.FileName<br />
txtFile.Text = fn<br />
dgtemp = New C1.Win.C1FlexGrid.C1FlexGrid<br />
<br />
sheetname = dgtemp.LoadExcelSheetNames(fn)<br />
dgtemp.LoadExcel(fn, sheetname(0), C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells)<br />
Thje bold part of the code is giving error as:
"Failed to open storage file."
Help...
Thanks and Regards,
|
|
|
|
|
You're going to have to go to ComponentOne's site for support[^] on this. It's functionality specific to their control.
|
|
|
|
|
Hello,
I have checked out the code at my end. It seems to be working fine. If the issue persists, I
would suggest you to contact at the following email addresses for further assistance.
support@componentone.com
Regards,
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
That is solved, another problem now.
Eg: I have a flexgrid with two columns(Select as boolean and Name as string) in which in the column of name I already have my name, now if i again upload a excelfile which has my name, in the datagrid my name should come checked.
How do I do that. The thing which I have already done is as below:
It will take some time for you to read this, but please read as I am stuck in a quick sand.
Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click<br />
Dim filename As String<br />
Dim od As New OpenFileDialog<br />
Dim SheetName() As String<br />
Try<br />
<br />
od.AddExtension = True<br />
od.DefaultExt = ".xls"<br />
od.Filter = "Microsoft Excel Workbook(*.xls)|*.xls"<br />
od.ShowDialog()<br />
filename = od.FileName<br />
SheetName = dgtmp.LoadExcelSheetNames(filename)<br />
dgtmp.LoadExcel(filename, SheetName(0), C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells)<br />
<br />
Dim dgCol As C1.Win.C1FlexGrid.Column<br />
For Each dgCol In dgtmp.Cols<br />
dgCol.Name = dgtmp.Rows(0)(dgCol.Index)<br />
Next<br />
<br />
dgtmp.Cols.Add()<br />
dgtmp.Cols(dgtmp.Cols.Count - 1).Name = "SEL"<br />
dgtmp.Cols(dgtmp.Cols.Count - 1).DataType = System.Type.GetType("System.Boolean")<br />
<br />
objEms.RetrieveSearchData("FIS104", "BANK_CODE='" & BankCode & "'", "", sCompany, sPlant, dsRet, Nothing)<br />
If Not IsNothing(dsRet.Tables(0)) Then<br />
If dsRet.Tables(0).Rows.Count > 0 Then<br />
CLEARDATE = dsRet.Tables(0).Rows(0)("CLEAR_DATE")<br />
WITHDRAWLS = dsRet.Tables(0).Rows(0)("WITHDRAWLS")<br />
DEPOSITS = dsRet.Tables(0).Rows(0)("DEPOSITS")<br />
CHEQUENO = dsRet.Tables(0).Rows(0)("CHEQUE_NO")<br />
DESCRIPTION = dsRet.Tables(0).Rows(0)("DESCRIPTION")<br />
Else<br />
ShowMessage("Format not Defined", 30)<br />
End If<br />
End If<br />
<br />
Dim dgRow As C1.Win.C1FlexGrid.Row<br />
For Each dgRow In dgtmp.Rows<br />
'If dgRow.Index > 0 Then<br />
If dgtmp.Rows.Count - 1 > 0 Then<br />
With dgBankReco<br />
<big>Dim curRow As Integer = .FindRow(dgRow(CHEQUENO), 0, .Cols("CHEQUE_NO").Index, False, True, False)</big><br />
If Val(.Rows(curRow)("DEBIT").ToString()) = Val(IIf(IsNothing(dgRow(DEPOSITS)), 0, dgRow(DEPOSITS))) And Val(.Rows(curRow)("CREDIT").ToString()) = Val(IIf(IsNothing(dgRow(WITHDRAWLS)), 0, dgRow(WITHDRAWLS))) Then<br />
.Rows(curRow)("SEL") = 1<br />
.Rows(curRow)("CLEAR_DATE") = dgRow(CLEARDATE)<br />
dgRow("SEL") = 1<br />
End If<br />
End With<br />
Else<br />
dgtmp.Row = 0<br />
dgtmp.Rows.Fixed = 1<br />
End If<br />
Next<br />
<br />
<br />
Catch ex As Exception<br />
dsRet = Nothing<br />
End Try<br />
End Sub
The code in bold throws an exception as :
"Index was out of range. Must be non-negative and less than the size of the collection.Parameter name: index"
-- modified at 7:08 Thursday 22nd November, 2007
Thanks and Regards,
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
