How can i print the data in VB

[sreekandan]

hi
I want the codings to take print out by clicking the command button.
So kindly reply me.

[hariharanmca]

hi
I want the codings to take print out by clicking the command button.
So kindly reply me.

You want to print in Notepad or printer and VB or VB.net specify

[sreekandan]

I want to print via printer

You want to print in Notepad or printer and VB or VB.net specify

[hariharanmca]

hi
I want the codings to take print out by clicking the command button.
So kindly reply me.

Code VB6.


'To print in Notepad
Open App.path & "\NotepadFile.Txt" For Output As #1 ' Open file for output.

'To print in Printer
Open "LPT1" For Output As #1 ' Open printer for output.


Print #1, "PrintLine String1"
Print #1, "PrintLine String2"
Print #1, "PrintLine String3"
.
.
.
..
Print #1, "PrintLine String _ n"
Close #1

[sreekandan]

LPT1 specifies what?

Code VB6.


'To print in Notepad
Open App.path & "\NotepadFile.Txt" For Output As #1 ' Open file for output.

'To print in Printer
Open "LPT1" For Output As #1 ' Open printer for output.


Print #1, "PrintLine String1"
Print #1, "PrintLine String2"
Print #1, "PrintLine String3"
.
.
.
..
Print #1, "PrintLine String _ n"
Close #1

[hariharanmca]

LPT1 specifies what?

Printer Port 1

[sreekandan]

ok. i want to take the whole form by clicking the command box.

Printer Port 1

[hariharanmca]

ok. i want to take the whole form by clicking the command box.

for what you want to take the whole form by clicking the command box.
explain the problem properly

[sreekandan]

i want to take the print out as a report in the ListView

for what you want to take the whole form by clicking the command box.
explain the problem properly

[hariharanmca]

i want to take the print out as a report in the ListView

let
lstName will be list items
'To print in Printer
Open "LPT1" For Output As #1 ' Open printer for output.

for i=1 to lstname.listitems.count

Print #1, lstname.listitems(i).text & " " & lstname.listitems(i).subitems(1) & " " & lstname.listitems(i).subitems(2)
Print #1, lstname.listitems(i).subitems(1)
Print #1, lstname.listitems(i).subitems(2)
.
.
..
Print #1, lstname.listitems(i).subitems(n)
next i
Close #1