Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Pro VB 6
|
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 software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old January 26th, 2008, 01:53 PM
Registered User
 
Join Date: Jan 2008
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 ?

 
Old March 21st, 2008, 06:32 AM
Registered User
 
Join Date: Mar 2008
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
 
Old May 3rd, 2008, 08:58 PM
Friend of Wrox
 
Join Date: Oct 2004
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







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 01:50 AM
printing problem with crystal report visual basic gajendrabang Crystal Reports 2 January 3rd, 2007 02: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 09:51 AM
Printing problem in Visual Basic ! Urgent venkatesh_anmca Beginning VB 6 2 January 29th, 2005 02:22 AM





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