Steven,
Here are a few lines from one of my programs;
I believe it will give you some idea as how to
do what it is you are trying to do:
_______________________________________________
Dim K As Integer
K = 0
Open Printer.Port For Output As #1
Do Until K = frmPrint.lstPrint.ListCount
If K Mod 27 = 0 Then
Print #1,
Print #1, Space(9) & "Roster of LTDHD Board Members as of: " &
Format(Date, "Long Date")
Print #1, vbCrLf
Print #1, "NAME:" & Space(18) & "ADDRESS:" & Space(38) & "PHONE:"
Print #1, String(79, 45)
End If
Print #1, LTrim(frmPrint.lstPrint.List(K))
Print #1,
K = K + 1
Loop
Print #1, vbFormFeed
Close #1
_________________________________________________________
Hope it helps,
Cliff
Quote:
> I bought a copy of VB 3.0 to try it out and see if I like VB. I wrote
> several small programs and then I wrote a program for a small family
> rental bussness. It access and saves files, but when I try to print out
> what would be a recipt nothing happens with Printer.Print and
> Printer.EndDoc. I can get the data to go to a form but not to the
> printer. If I use Print.Form then the command buttons print but no text.
> I am using windows 95 and I have a designated printer. I tried changing
> the AutoRedraw property to both true and false. Is there some stupid
> little thing that I am missing.
> Steve Frustrated n Florida
--
****************************************
ICQ - 16957341
****************************************
If I had to live my life again, I'd make
the same mistakes again--ONLY SOONER!!!!
****************************************
Last night I dreamt I ate a 10 pound
marshmallow, when I woke up my pillow
was gone.
****************************************