Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Pro VB 6
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Pro VB 6 For advanced Visual Basic coders working in version 6 (not .NET). Beginning-level questions will be redirected to other forums, including Beginning VB 6.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Pro VB 6 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
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old January 26th, 2008, 12:53 PM
Registered User
 
Join Date: Jan 2008
Location: , , .
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default printing in custom paper size in visual basic

Hello

I am using

OS = Windows XP
Visual Basic Enterprise Edition 6


I have a problem in Printing in pre printed bill .

Bill Size

Height : 6 inches Width of paper : 9.1 inches

I wish to print bill by bill, Pre printed stationery is continious paper, I wish to print in one bill after one bill the paper automatically skip to other bill.
the problem is : while printing the paper moves for A4/Letter and i cann't able to enable the Tear off Mode.


Please go through the below three codes and help me fix paper size

================================================== ================================

I used three codes to print . But problem contious. There is no paper size in VB for my paper setting ( height 6 inches , width 9.1 inches)



I used three methods to print one is
--------------------------------------------------------

Printer.ScaleMode = ScaleModeConstants.vbTwips

Printer.Width = 13104
Printer.Height = 8640
.............................
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Printer.EndDoc
Printer.NewPage
End Function

the above method while printing the paper moves for A4/Letter and i cann't able to enable the Tear off Mode.

How can i set paper size of Height : 6 inches Width of paper : 9.1 inches
================================================== ==
2. Second code creating Text file and printing by creating text files one of my friend suggestes
================================================== =====


Call modBillPrinter.OpenPrintFile
Call modBillPrinter.PrintPLine(Chr(12))


Call modBillPrinter.PrintPLine(Space(10) + MakeString(Trim(cname), 15, ALIGN_LEFT) + Space(5) + MakeString(Trim(bno), 10, ALIGN_LEFT))
Call modBillPrinter.PrintPLine(Space(10) + MakeString(Trim(place), 15, ALIGN_LEFT) + Space(5) + MakeString(bdate, 10, ALIGN_RIGHT))
Call modBillPrinter.PrintPLine(Chr(12))
Call modBillPrinter.PrintPLine(Space(5) + MakeString(" S.NO", 5, ALIGN_LEFT) + Space(3) + MakeString("Particulars", 20, ALIGN_LEFT) + Space(3) + MakeString("Grms", 6, ALIGN_RIGHT) + Space(3) + MakeString("Wastage", 7, ALIGN_RIGHT) + Space(3) + MakeString("Rate", 4, ALIGN_RIGHT) + Space(3) + MakeString("MC", 5, ALIGN_RIGHT) + Space(3) + MakeString("SC", 5, ALIGN_RIGHT) + Space(3) + MakeString("Amount", 10, ALIGN_RIGHT))
Call modBillPrinter.PrintPLine(Chr(12))


  Print #1, Spc(8 - Len(CStr(psno))); psno; Spc(3); '8
  Print #1, particulars; Spc(20 - Len(CStr(particulars))); '17
  Print #1, Spc(9 - Len(CStr(grams))); grams; '7
  Print #1, Spc(8 - Len(CStr(wastage))); wastage;
  Print #1, Spc(11 - Len(CStr(trate))); trate; '7
  Print #1, Spc(9 - Len(CStr(mc))); mc; '7
  Print #1, Spc(8 - Len(CStr(sc))); sc; '7
  Print #1, Spc(12 - Len(CStr(amount))); amount '11


  Print #1, vbCr
  Print #1, Spc(76 - Len(CStr(Netamttxt.Text))); Netamttxt.Text
  Print #1, Chr(12)


modBillPrinter.ClosePrintReport
Shell App.Path & "\PRINT.BAT", vbHide
End Function

Here the problem is i cannot change font size ,
And i wish the usage of follwing for what following command used

1. Print #1, vbCr ?
2. Print #1, Chr(12)
3. Print #1, Spc(12
4. Print #1, vbCrLf


================================================== ==================
3 Third method - ( In this method no printing no out put in printer totally no print out
================================================== ===================



 Open "E:\jewelproject\DSREPO.TXT" For Output As #1
 Call Header
 psno = 1

 While psno <= sno

  If tcount > 5 Then
   Print #1, Chr(12)
   Call Header
   tcount = 1
  End If

  mg1.Row = psno
  mg1.Col = 2: particulars = mg1.Text
  mg1.Col = 3: grams = mg1.Text
  mg1.Col = 5: wastage = mg1.Text
  mg1.Col = 6: trate = mg1.Text
  mg1.Col = 7: mc = mg1.Text
  mg1.Col = 8: sc = mg1.Text
  mg1.Col = 9: amount = mg1.Text

  Print #1, Spc(8 - Len(CStr(psno))); psno; Spc(3);
  Print #1, particulars; Spc(17 - Len(CStr(particulars)));
  Print #1, Spc(6 - Len(CStr(grams))); grams;
  Print #1, Spc(8 - Len(CStr(wastage))); wastage;
  Print #1, Spc(7 - Len(CStr(trate))); trate;
  Print #1, Spc(7 - Len(CStr(mc))); mc;
  Print #1, Spc(7 - Len(CStr(sc))); sc;
  Print #1, Spc(11 - Len(CStr(amount))); amount

  tcount = tcount + 1
  psno = psno + 1

 Wend

  For i = 1 To 9 - tcount
   Print #1, vbCr
  Next i

 Print #1, Spc(5); "Discount : "; disctxt.Text; Spc(5); "VAT : "; vattxt.Text
 Print #1, vbCr
 Print #1, Spc(76 - Len(CStr(Netamttxt.Text))); Netamttxt.Text
 Print #1, Chr(12)

 Close #1
 'Shell App.Path & "\PRINT.BAT", vbHide
 Shell "E:\jewelproject\PRINT.BAT", vbHide
 'Shell "c:\1.txt", vbHide
End Function


Public Function Header()

 cname = cnametxt.Text
 bdate = datetxt.Text
 place = cptxt.Text
 bno = Bnotxt.Text

 For i = 1 To 6: Print #1,: Next

 Print #1, Spc(18); cname; Spc(42 - Len(Name)); bdate
 Print #1, Spc(18); place; Spc(42 - Len(bno)); bno
 Print #1, vbCrLf

 Print #1, Spc(5); "Sl.No"; Spc(3); "Particulars"; Spc(6); " Grams";
 Print #1, " Wastage"; Spc(3); "Rate"; Spc(3); "MC"; Spc(5); "SC"; Spc(6); "Amount"
 Print #1, vbCrLf

My Problem : while printing the paper moves for A4/Letter and i cann't able to enable the Tear off Mode.

1. How can i modify above code to fix paper size Height : 6 inches Width of paper : 9.1 inches

How can i change font size in Dos printing mode ?

Reply With Quote
  #2 (permalink)  
Old March 21st, 2008, 06:32 AM
Registered User
 
Join Date: Mar 2008
Location: Eorde, TN, India.
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default

hai
  this may easy when using crystal report. why don't you try that, just fix the paper size to "Receipts #1 10x6 in".

regds
harish
Reply With Quote
  #3 (permalink)  
Old May 3rd, 2008, 08:58 PM
Friend of Wrox
 
Join Date: Oct 2004
Location: India.
Posts: 224
Thanks: 0
Thanked 1 Time in 1 Post
Send a message via MSN to ashu_from_india Send a message via Yahoo to ashu_from_india
Default

hi,

Crystal report poses the same issue. Printer skips the whole A4 size paper after printing.


Thanks,
Ashu


Reply With Quote
Reply


Thread Tools
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
Set Paper Size (custom also) to default Printer gaurikhot .NET Framework 2.0 2 December 6th, 2008 12:50 AM
printing problem with crystal report visual basic gajendrabang Crystal Reports 2 January 3rd, 2007 01:09 AM
Problem with custom paper size adrineh Crystal Reports 0 August 26th, 2006 03:21 AM
Printing problem using dot-matrix paper size ismail_m HTML Code Clinic 1 January 1st, 2006 08:51 AM
Printing problem in Visual Basic ! Urgent venkatesh_anmca Beginning VB 6 2 January 29th, 2005 01:22 AM



All times are GMT -4. The time now is 02:29 AM.


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