Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP.NET 1.0 and 1.1 > ASP.NET 1.0 and 1.1 Basics
Password Reminder
| FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
ASP.NET 1.0 and 1.1 Basics ASP.NET discussion for users new to coding in ASP.NET 1.0 or 1.1. NOT for the older "classic" ASP 3 or the newer ASP.NET 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the ASP.NET 1.0 and 1.1 Basics section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old September 19th, 2006, 06:58 AM
Registered User
Join Date: Sep 2006
Location: Greater Accra, Accra, Ghana.
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to fiiyo
Default Change Printer at run time for crystal rpt, VB6.0

hello every one, i wish to be able to change the printer which prints my voucher/reports designed in a Seagate crystal report after issueing a number of copies to an initial printer after the printer setup dialog box has been displayed.
i tryied using the PrinterName property which comes with the "Crystal Report Control" but it is not working. like this;
Private Sub cmdPrint_Click()
Dim vPrinter As Printer
    cdlDialog.Flags = cdlPDReturnDefault
    cdlDialog.Flags = cdlPDPrintSetup
rptMulty.PrinterName = vPrinter.DeviceName
If vDataType = False Then
rptMulty.DataFiles(0) = vDataFile
rptMulty.ReportFileName = vReportPath & "Voucher.rpt"
rptMulty.Connect = strConn
rptMulty.DiscardSavedData = True
rptMulty.ReportFileName = vReportPath & "Voucher3.rpt"
End If

'Do Until vCount = vPrintQty
a$ = rstNewMaster("Serial")
'If vDataType = False Then
'rptMulty.SelectionFormula = "{MasterTable.Serial}= " & rstNewMaster("Serial")
'rptMulty.SelectionFormula = "{MasterTable.Serial}= '" & rstNewMaster("Serial") & "'"
'End If

rptMulty.Destination = crptToPrinter
rptMulty.Action = 1
vCount = vCount + 1
rstNewMaster("Status") = "-1"


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
change Datasource of a crystal report at run time tiyyob Pro VB 6 1 February 17th, 2007 06:05 AM
how to change printer orientation from vb6 pkhussain VB How-To 3 January 3rd, 2007 03:30 AM
RUN-TIME ERRORS IN MY VB6 APPLICATION Nadalik VB How-To 1 June 15th, 2006 11:18 AM
Change group at run time in Crystal Report 9.0 by priyank Beginning VB 6 0 January 6th, 2006 06:11 AM
DAO Run Time Error 3423 - VB6 to Access2000 Iblys Access 1 September 25th, 2003 09:31 PM

All times are GMT -4. The time now is 12:33 PM.

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.