PDA

Click to See Complete Forum and Search --> : cr8 and vb6 question :)


atzthegreat
Oct 8th, 2008, 02:08 AM
hi guyz i really need your help... :)

i made a program and a report here in my pc. it works fine and it print good. but the problem s, when i'm going to install to another computer.. it will not print... i dont know what's the problem... hope u can help me... :) thanks n advance and God bless

here s my coding:

'at the top of my coding
Option Explicit

Private crystal As CRAXDRT.Application
Private report As CRAXDRT.report

'my code in print button

Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\listreport.rpt")
report.DiscardSavedData
report.PrintOut False
Set crystal = Nothing

Hack
Oct 8th, 2008, 07:41 AM
It probably has nothing to do with your coding and everything to do with your installing.

What installation and setup package are you using?
What errors, if any, on the target machine are you getting?

atzthegreat
Oct 8th, 2008, 07:38 PM
hi hack :) i'm using the easy installer for vb6. not the package and diployment wizard of vb6. i dont get any error from my program. actually when i click print it will show that it is printing because there is a message that printing page 1 of page 1. but suddenly, gone... do you think much better if im going to use the package and deployment wizard of vb6? or what would you suggets? :) thanks and God bless

atzthegreat
Oct 9th, 2008, 07:30 PM
i can now print. but the problem is when i print again, still the previous report will print... example: first print "Atz". when i print "Zat", still "Atz" will appear. i already put report.DiscardSavedData.
plz help :( thanks and God bless

here's my code:

Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\listreport.rpt")
report.DiscardSavedData
Set report = Nothing
Set crystal = Nothing

Set crystal = New CRAXDRT.Application
Set report = crystal.OpenReport(App.Path & "\listreport.rpt")
report.PrintOut False
Set crystal = Nothing