Re: Passing parameters from page to page in HTA app

From: McKirahan (News_at_McKirahan.com)
Date: 12/03/04 

Date: Fri, 03 Dec 2004 14:29:26 GMT

"Trent" <notvalid@dontspam.com> wrote in message
news:e0CeX9T2EHA.2112@TK2MSFTNGP15.phx.gbl...
> Internet Explorer has issues with printing output from it's page which I
am
> sure could be corrected as I write the code but sending to a .doc file
> format would allow them to be able to make edits in a better environment
if
> needed. I just have to learn how to output to that format.
> I have sample code for doing rtf .doc files that I will be playing with.
>
> I am only outputting to delimited text files. They did not want to use an
> Access database due to previous support issues with the databases
> corrupting. They actually thought that a SQL DB would be used to synch to
> when back at the office but that leaves me nowhere to store data while not
> netoworked so I store it in text files. One list of events, then sub
> folders for each event containing an attendee list a generic itinerary
that
> applies to all attendees and individual itinerary files containing
personal
> modifications. When they are ready to print I will pull in the data and
> output into a formatted file for print. This way I keep the data separate
> as they will want to be able to report on it at a later time.
>
> BTW, I found the reason it always launched in a new window was the
Navigable
> property was set to no. Once I changed it the pages would launch in the
> same window every time. :)

[snip]

Are you aware that you can use an MS-Access database without having
MS-Access installed just as you can generate an MS-Word document without
having MS-Word installed (I think)?

To get you started here's a sample script that generates an MS-Word
document.

    Option Explicit
   '*
    Const cVBS = "ms~word.vbs"
    Const cDOC = "ms~word.doc"
    Const cFOL = "C:\Temp\"
    Const wdWindowStateMaximize = 1
   '*
    Dim objMSW
    Dim objDOC
    Dim objPAR
    Dim objRAN
   '*
    Set objMSW = CreateObject("Word.Application")
    With objMSW
        .WindowState = wdWindowStateMaximize
        .Documents.Add
        Set objDOC = objMSW.ActiveDocument
        With objDOC
            .PageSetup.TopMargin = 43.5
            .PageSetup.BottomMargin = 43.5
            .PageSetup.LeftMargin = 72
            .PageSetup.RightMargin = 43.5
            .Range.Font.Name = "LinePrinter"
            .Range.Font.Size = 8
        End With
        Set objRAN = objDOC.Range
        With objRAN
            .Font.Bold = True
            .Font.Italic = True
            .Font.Size = 16
            .InsertAfter "Hello World!"
            .InsertParagraphAfter
            .InsertParagraphAfter
        End With
        Set objPAR = objRAN.Paragraphs(3)
        With objPAR.Range
            .Bold = True
            .Italic = False
            .Font.Size = 12
            .InsertAfter "Goodbye World!"
        End With
        .ActiveDocument.SaveAs cFOL & cDOC
        .Quit
    End With
   '*
    Set objPAR = Nothing
    Set objRAN = Nothing
    Set objDOC = Nothing
    Set objMSW = Nothing
   '*
    MsgBox "Created " & cFOL & cDOC,vbInformation,cVBS

Relevant Pages

  • Re: Is This Possible ... ? Yes - Upload images to an Access database
    ... It looks like your databases folder is outside the root of your web ... I created a database exactly as you said, the only change I made was to ... and underneath an 'upload' button and a 'view images' button. ... Dim con As New Data.OleDb.OleDbConnection ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Is This Possible ... ? Yes - Upload images to an Access database
    ... It looks like your databases folder is outside the root of your web ... I created a database exactly as you said, the only change I made was to ... and underneath an 'upload' button and a 'view images' button. ... Dim con As New Data.OleDb.OleDbConnection ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Is This Possible ... ? Yes - Upload images to an Access database
    ... I created a database exactly as you said, the only change I made was to ... upload it into the 'databases' folder, and not a folder called 'App_Data', ... and underneath an 'upload' button and a 'view images' button. ... Dim con As New Data.OleDb.OleDbConnection ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: mailmerge and sql
    ... that is essentially a database application with a document ... the recordset to the Word Template and use it as if I got ... >> using an ADO recordset as a datasource (if it could be ... >Dim oCatalog As ADOX.Catalog ...
    (microsoft.public.word.mailmerge.fields)
  • Requery of Listbox does not display new data
    ... add a record to the database. ... Then the Lisbox control's requery method is ... The ADO command is run using a connection string to the mdb containing the ... Dim cmd As ADODB.Command ...
    (microsoft.public.access.formscoding)