Database to read ASC II File created from excel

C

Chris

I have a datafile in Excel that I would like to make the information
available to our clients to search on. I don't need anything fancy but the
program does need to be under 5 megs in size. Just a way for them to search
on text & numeric items on 4 to 5 fields at a time and print out a simple
report. I need it to run on the ms windows o/s or suppose it could be
javascript but I don't want to have to get into the programming language.

Any suggestions for programs,

Thanks,
Chris
 
D

Dave Peterson

Most of this was stolen directly from John Walkenbach's site:
http://j-walk.com/ss/excel/tips/tip79.htm

But I would be the best way to tell what would look best is to do some test
printing.

This is a macro that loops through your installed fonts and shows what they look
like. Print it and see which one you like best.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Option Explicit
Sub ShowInstalledFonts()
Dim FontList As CommandBarControl
Dim TempBar As CommandBar
Dim i As Long
Const myStr As String _
= "abcdefghijklmnopqrstuvwxyz" _
& "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-=!@#$%^&*()_+"

Set FontList = Application.CommandBars("Formatting").FindControl(ID:=1728)

' If Font control is missing, create a temp CommandBar
If FontList Is Nothing Then
Set TempBar = Application.CommandBars.Add
Set FontList = TempBar.Controls.Add(ID:=1728)
End If

Worksheets.Add

' Put the fonts into column A
Range("A:b").ClearContents
For i = 0 To FontList.ListCount - 1
With Cells(i + 1, 1)
.Value = FontList.List(i + 1)
With .Resize(1, 2).Font
.Name = FontList.List(i + 1)
.Size = 8
End With
End With
Next i

Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Value = myStr

' Delete temp CommandBar if it exists
On Error Resume Next
TempBar.Delete

End Sub
 
C

Chris

Dave Peterson said:
But I would be the best way to tell what would look best is to do some test
printing.

This is a macro that loops through your installed fonts and shows what they look
like. Print it and see which one you like best.

It took awhile but I finally figured out why the characters were touching.
The spreadsheet got scaled when I pasted it in Word so it would all fit on
the page.

Thanks for your reply,
Chris
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top