DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Re: How to Create A Report In VB

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Feb 2007

Posts: 1

Reputation: vsraju is an unknown quantity at this point

Solved Threads: 0

vsraju

Offline

Newbie Poster

Re: How to Create Product Registration Code for VB Application.

Feb 12th, 2007

IS there a way of generating reports from VB6 ( not through Data Reports & Crystal Reports ) which directly sends to a local printer and printing should be done fast, No matter what ever may be the font.

•

Join Date: Feb 2009

Posts: 4

Reputation: suzz is an unknown quantity at this point

Solved Threads: 0

suzz

Offline

Newbie Poster

Re: How to Create A Report In VB

Feb 11th, 2009

hey did u get answer for ur query as i am also in need of the answer for the same query. plz reply asap.

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: How to Create A Report In VB

Feb 11th, 2009

So... Suzz. Let's not post to threads that are two years old.

•

Join Date: Sep 2008

Posts: 148

Reputation: samir_ibrahim is on a distinguished road

Solved Threads: 16

samir_ibrahim samir_ibrahim is offline

Offline

Junior Poster

Re: How to Create A Report In VB

Feb 11th, 2009

I can think of 2 function that could able to help you.
#1 Printing by IE
#2 Print Any kind of File

' #1 Print By IE

 Help with Code Tags 
 vbnet Syntax (Toggle Plain Text) 
Dim oIE
Dim FileName
FileName = "c:\myfile.txt" ' or .html or .xml depending on where you stored the data you want to print
oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True ' You can change this to False
oIE.Navigate2 (FileName)
While oIE.ReadyState <> 4
Wend
oIE.ExecWB 6, 0  ' Print
'oIE.ExecWB 7, 0 ' Print Preview
Dim oIE
Dim FileName
FileName = "c:\myfile.txt" ' or .html or .xml depending on where you stored the data you want to print
oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True ' You can change this to False
oIE.Navigate2 (FileName)
While oIE.ReadyState <> 4
Wend
oIE.ExecWB 6, 0  ' Print
'oIE.ExecWB 7, 0 ' Print Preview

#2 PrintFile Function

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
 FileName = "c:\myfile.txt" ' Any kind of file (xls doc xml html )
 nRetVal = ShellExecute(0, "Print", FileName, "", "", 0)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
 FileName = "c:\myfile.txt" ' Any kind of file (xls doc xml html )
 nRetVal = ShellExecute(0, "Print", FileName, "", "", 0)