Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Printing - Custom Paper Size ( Urgent )


I am developing a program in which i need to print some text at a specific location on a pre printed stationary of size 10" X 6" (Width = 10" and Height = 6" ) How ever every time I print it takes 10" as Height in Windows Xp

Pl. Answer me as early as possible




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Printing On Custom Size Paper
Hi,

How do I print on a paper of size 254mm x 203mm?
After printing the paper should not scroll out. Because it is a roll of preprinted papers of same size.

Thanks in advance,
Ram.

Printing On Custom Size Paper
Hi,

How do I print on a paper of size 254mm x 203mm?
After printing the paper should not scroll out. Because it is a roll of preprinted papers of same size. (one record per page)

Thanks in advance,
Ram.

Printing On Custom Size Paper
Hi,

How do I print on a paper of size 254mm x 203mm?
After printing the paper should not scroll out. Because it is a roll of preprinted papers of same size.

Thanks in advance,
Ram.

Printing In Custom Paper Size In Visual Basic 6
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:jewelprojectDSREPO.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:jewelprojectPRINT.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



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

Please help me to print properly in pre printed bill
=======================================================

A.Senthil kumar

Setting Custom Paper Size For Custom Printer
Is it possible to set custom Paper size for Custom Printer i.e. own custom printer in application?
In my Visual Basic 6 program I want to generate EPS (Encrypcted PostScript) file using custom printer. Image size I want set
with custom paper size (Custom Image size).

I am trying with adding custom form to the Printer. Is this way is correct?


Thanks in advance
Jyoti

Custom Paper Size
my reports is designed to print in a custom paper size, 8.5 x 5.5 inch (half of Letter size). thats a problem if my program run in xp.

if i run in win98 or ME, thats not problem. i just have to set a custom paper size in the printer setting. i just set the width=850 and length(height) = 550 as well. (pic1)

BUT, when i run in xp, i cannot set custom paper size... How to set custom paper size? i cannot found custom paper... (pic2)

pls help. tq.

Custom Paper Size.
Is the ability to change a report to print in custom paper size based on settings on the printer?
Or is it possible to somehow change this in the crystal designer tool?

Windows XP - Custom Paper Size
I created a custom paper size in Windows XP. (4in x 2in form)

But I am unable to set that paper size in my Epson Dot Matrix printer.

I don't know why MS has disabled this useful service in advanced OS like XP.

I need to set it either through VB or in Operating System level.

Kindly help me.

Thanks

Set Custom Paper Size, Always Fail?
I've been looking for answer to this question many days but still, cannot set the paper size of my LQ2180 to 12'x 4'.

I tried more than 30 printer drivers but still no luck.

Is there any trick I can define a custom paper size in Windows or I am doing the thing wrong in Printer.width = 12 x 1440 and Printer.height = 4 x 1440 ?

'cos I have 10000pcs of continuous cheques to be printed so..

Pls help!
Many many thanks!

Custom Paper Size In Excel
How to set the Custom Paper size in the Excel throgh VB 6?



Edited by - Vairam_Jegan on 6/18/2005 2:23:49 AM

Custom Paper Size In Printer Object
Hi all
How can I set custom paper size in printer object in vb? I tried vbPRPSUser property. But it gives an error.
I have EPSON LQ-870 printer which doesn't have custom paper size in it's settings. I have to print in 5.5 inch X 9.5 inch pre printed paper. I'm using printer object to print.
Any idea? please help.
or how can I set custom paper size in crystal report 5?

Thanx in advance

Settings Custom Paper Size To DataReport
Hai. .....,
            Is there a way thru which i could instruct the datareport to print on a 6 inch X 6 inch paper. After Printing, the paper should not scroll out. It's Just like the bills printed out at the cost price shop. Thanx in advance

Crystal Reports Custom Paper Size Problem
i have managed to design my reports using an 8.5 x 7 papersize. it prints correctly on my printer. i have installed my app on another computer with a different printer and the data on my report was truncated when i have inserted the paper with the mentioned size. when i tried feeding in an 8.5 x 11 paper (which is the default papersize of the printer) all the data was present but the report footer went to the lowest part of the page.

how can i correct this? i need to print the report on an 8.5 x 7 paper since the paper is a pre-formatted form. i tried using. papersize property of cr8.5 but i can't specify the size of the paper. i also tried designing my report on the other computer however i am only
successful in printing on the first try, if i print a second or a third time the custom papersize would have to be specified again in order for me to print the report correctly. any suggetions? please help.

How To Custom Paper Size Of Data Report In Visual Basic 6.0
hello
i am working on a project using visual basic. i have to print a recept which is of 7.6 x 9.8 inch size. by default the paper size it prints is of A4 size page. so how to custom this size using code while printing data report in visual basic 6.0

Printing A Form Whose Size Is More Than The More Than 11* 8.5 Paper Size
Can anybody tell me how to print a Form whose size is more than the More than 11* 8.5 Paper size

Printing Paper Size
I am printing a Data grid to the printer in my application and use a the common dialog box to get the settings. The user can in the advanced settings set the paper size. How do I go about getting this infomation so I can set the paper size when I print. There isn't a property in the Object to get this.

Maybe a API Call????

Printing A Form To A4 Size Paper
I'm trying to print a long form that has a height greater than that of the screen in VB4. Whenever I print the form, it gets cut off about three-quarters way down an A4 page. Any ideas on how to stop this happening? Could it be something to do with the particular printer driver I'm using?

Thanks,
Patrick Scahill,
Dublin,
Ireland

DATAREPORT-Paper Size And Orientation. URGENT Help Needed
Hello,
I`m working on my first datareport.
So far, the report is already designed and I can preview it (in letter size), but I need to print it in 3 copies, 1/3 legal size, and landscape orientation.

This must be done automatically, I mean, I donīt want the user to be setting "number of copies" = 3 or anything at the printer panel. (if possible I donīt even want the printer panel to appear).

The result should be a 1 legal size page with the report printed 3 times in it (NOT 3 legal size pages with 1 report in it).

How do I achieve this?

Any help is very well appreciated.

Printing The Whole Form In A Specific Paper Size
Hi there,
i am a VB beginner just learning how to print a form. How do I print the whole form instead of just printing what can be seen on screen? I have read some threads in this forum but they seem too complicated for me .

As for printing to a specified paper size, I found a suggestion by hacibumbala:

Printer.PaperSize = vbPRPSLetter
Form.Height = Printer.Height
Form.Width = Printer.Width
Printer.PrintForm (this I put as Form.Printform )

but I got an error message:"Run-time error '486':Can't print form image to this type of printer"

Another thing is, how do I specify the size of paper? vbPRPSLetter is for letter size, right? What if I want to print in A4 size?

Thanks a lot!!

Help For Printing A Report On A Legal Size Paper
Anybody know a way I can create a report that supports the size 8.5 X 14 in (legal) paper?
Datareport doesn't support this.
I don't have experience working with Crystal Reports (if anybody has an example for creating this type of report I would appreciate your contribution). I need it for a VB application, I have done reports on Crystal Reports but can't find a way to link it on a VB application in the way that if the contents of a database changes, it is reflected on the Crystal Report.
If anybody can help, please let me know.

Help For Printing A Report On A Legal Size Paper
Hello

I' using vb6 and crystal 7.0.

I created a report in crystal 7.0 .In cryustal report i Enter two lines
and single line characher data.

For ex.
School Name is...... (line 1)
School register
Number is............. (line 2)
When I print report on dot matrix printer on thta time only one sinlge line character line is printing but two lines character line is not printing on paper all charactres are missing.

What I do?

Printing To Predefined Size, Designed Paper.
Hi

I need to print some fields in a predefined size (3" * 2") card. The card has a predefined layout. I need to print the fields in the correct postion of the card. Printer is dot matrix printer. How can i do this in VB 6.

Please give some ideas .

I have attached a sample of the card layout.

Awaiting for reply ...
Thanx

How To Customize Printing Paper Size At Runtime
How Can I Customize The Printing Paper Size At Runtime. I Need To Tell The Printer To Use A Page Setting Of Width=850 and Height =600. But I Am Not Able To Solve My Problem.... Please can u help me if you know how to do this at runtime?

It Can Be Done By Changing The Default Printer Setting But Apart From That I Want To Do This Without Changing The Default Printer Setting And In Runtime.
Thanks
If You Solve My Problem Do Mail Me At: udayan_chatterjee@mail.com

Urgent?can We Defined Size Of Paper In Crysal Report At Runtime
???urgent
can we defined size of paper in crysal report at runtime

Printing To 1/2 Size Of Short Bond Paper (Frustrating)
Hi there! I already have a code for printing and it's working fine.The code will print in one whole sheet of bond paper.

I would like to use a continous form (8 1/2 x 5 1/2) which is half of 8 1/2 x 11 (short bond paper). I would like also that after printing, even if the printout is just one line of text, the printer should eject the paper up to the perforation area only.


I came accross of a thread with the same problem but there was no reply to it.

Below is my code for printing. Can someone help with this please?

Code:
Private Sub cmdPrintRpt_Click()
'Add a textbox(hidden) and set it Multiline=true (but no scrollbar)
Dim i As Long
Dim j As Long
Dim strTmpDescArray() As String
Dim pagenum As Long, pagecount As Long

If lstRecords.ListItems.Count = 0 Then
MsgBox "There's nothing to Print", vbInformation, ProgName
Exit Sub
End If
CommonDialog1.CancelError = True ' Do this first

On Error GoTo ErrHandler ' Only need one error handler
Do
If Not pagenum = 0 Then pagecount = pagenum
pagenum = 1
'CommonDialog1.ShowPrinter
Printer.FontName = "Arial"
Printer.FontSize = 20
Printer.Orientation = vbPRORPortrait
Printer.CurrentY = 720 'Top Margin of .5"
Printer.CurrentX = 620 'Left Margin of .5"
Printer.Print "Sales Report"
Printer.FontName = "Courier New"
Printer.FontSize = 11
Printer.Print Tab(60); "Date Printed: "; Date
Printer.Print Tab(60); "Page " & pagenum & " of " & pagecount 'format as required
' pagenum = pagenum + 1 ' new page not till end of page
Printer.Print: Printer.Print

Dim Pagelength%, BottomMargin%, TopMargin%, ThreeLines%
Pagelength = 11 * 1440
BottomMargin = 1 * 1440
TopMargin = 0.5 * 1440
ThreeLines = 0.5 * 1440

'Print column headers
Printer.CurrentX = 220
Printer.Print LeftAlignText(lstRecords.ColumnHeaders(1).Text, MAX_WIDTH_COL1) & _
LeftAlignText(lstRecords.ColumnHeaders(2).Text, MAX_WIDTH_COL2) & _
RightAlignText(lstRecords.ColumnHeaders(3).Text, MAX_WIDTH_COL3) & _
RightAlignText(lstRecords.ColumnHeaders(4).Text, MAX_WIDTH_COL4) & _
RightAlignText(lstRecords.ColumnHeaders(5).Text, MAX_WIDTH_COL5) & _
RightAlignText(lstRecords.ColumnHeaders(6).Text, MAX_WIDTH_COL6) & _
RightAlignText(lstRecords.ColumnHeaders(7).Text, MAX_WIDTH_COL7) & " " & _
RightAlignText(lstRecords.ColumnHeaders(8).Text, MAX_WIDTH_COL8)
Printer.Print String(MAX_WIDTH_COL1 + MAX_WIDTH_COL2 + MAX_WIDTH_COL3 + MAX_WIDTH_COL4 + MAX_WIDTH_COL5 + MAX_WIDTH_COL6 + MAX_WIDTH_COL7 + MAX_WIDTH_COL8 + 1, "-") ' total 1 spaces in a line

'Print Data
For i = 1 To lstRecords.ListItems.Count

strTmpDescArray = FormatDescription(lstRecords.ListItems(i).ListSubItems(1).Text)

For j = 0 To UBound(strTmpDescArray) ' print each line of desc in separate line
If j = 0 Then 'print each text
If Printer.CurrentY > Pagelength - BottomMargin Then '****
Printer.NewPage
Printer.CurrentY = TopMargin
pagenum = pagenum + 1 '**** need to do before printing

'Repeat the Heading every page
Printer.CurrentX = 620 'Left Margin of .5"
Printer.FontName = "Arial"
Printer.FontSize = 20
Printer.Print "Sales Report"
Printer.FontName = "Courier New"
Printer.FontSize = 11
Printer.Print Tab(60); "Date Printed: "; Date
Printer.Print Tab(60); "Page " & pagenum & " of " & pagecount 'format as required
' or put after new page if you want at top of page
Printer.Print: Printer.Print

'Print Column Headers at every page
Printer.CurrentX = 220
Printer.Print LeftAlignText(lstRecords.ColumnHeaders(1).Text, MAX_WIDTH_COL1) & _
LeftAlignText(lstRecords.ColumnHeaders(2).Text, MAX_WIDTH_COL2) & _
RightAlignText(lstRecords.ColumnHeaders(3).Text, MAX_WIDTH_COL3) & _
RightAlignText(lstRecords.ColumnHeaders(4).Text, MAX_WIDTH_COL4) & _
RightAlignText(lstRecords.ColumnHeaders(5).Text, MAX_WIDTH_COL5) & _
RightAlignText(lstRecords.ColumnHeaders(6).Text, MAX_WIDTH_COL6) & _
RightAlignText(lstRecords.ColumnHeaders(7).Text, MAX_WIDTH_COL7) & " " & _
RightAlignText(lstRecords.ColumnHeaders(8).Text, MAX_WIDTH_COL8)
Printer.Print String(MAX_WIDTH_COL1 + MAX_WIDTH_COL2 + MAX_WIDTH_COL3 + MAX_WIDTH_COL4 + MAX_WIDTH_COL5 + MAX_WIDTH_COL6 + MAX_WIDTH_COL7 + MAX_WIDTH_COL8 + 1, "-") ' total 1 spaces in a line

End If

Printer.CurrentX = 220
Printer.Print LeftAlignText(lstRecords.ListItems(i).Text, MAX_WIDTH_COL1) & _
LeftAlignText(strTmpDescArray(j), MAX_WIDTH_COL2) & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(2).Text, MAX_WIDTH_COL3) & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(3).Text, MAX_WIDTH_COL4) & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(4).Text, MAX_WIDTH_COL5) & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(5).Text, MAX_WIDTH_COL6) & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(6).Text, MAX_WIDTH_COL7) & " " & _
RightAlignText(lstRecords.ListItems(i).ListSubItems(7).Text, MAX_WIDTH_COL8)
Else ' print spaces and corresponding line from strArryTmp
Printer.CurrentX = 220
Printer.Print LeftAlignText("", MAX_WIDTH_COL1) & _
LeftAlignText(strTmpDescArray(j), MAX_WIDTH_COL2) & _
LeftAlignText("", MAX_WIDTH_COL3) & _
RightAlignText("", MAX_WIDTH_COL4) & _
RightAlignText("", MAX_WIDTH_COL5) & _
RightAlignText("", MAX_WIDTH_COL6) & _
RightAlignText("", MAX_WIDTH_COL7) & _
RightAlignText("", MAX_WIDTH_COL8)
End If
Next j
Next i
' here is where to check if there is enough space for the 3 lines for the total
' then to print a new header if needed
If Printer.CurrentY > Pagelength - BottomMargin - ThreeLines Then '****
Printer.NewPage
pagenum = pagenum + 1
Printer.CurrentY = TopMargin
Printer.Print Tab(60); "Date Printed: "; Date
Printer.Print Tab(60); "Page " & pagenum & " of " & pagecount 'format as required
' or put after new page if you want at top of page
Printer.Print: Printer.Print
End If

Printer.Print Tab(62); "--------- ---------"
Printer.Print Tab(50); "Total "; RightAlignText(lblTotalSales, 15); RightAlignText(lblNetSales, 10)
Printer.Print Tab(62); "========= ========="
'Printer.EndDoc
'if you want page number on last page, you will need to add the code for it here,
'set the currentY to position at the bottom of page
If pagecount = 0 Then
Printer.KillDoc
'MsgBox "killdoc" '****
Else
Printer.EndDoc
'MsgBox "print" '****
End If
Loop While pagecount = 0
' lstRecords.ListItems.Clear 'Clear first the listview if it contains transaction
' Call ClearFunction(frmSales, "TextBox")
cmdClear.SetFocus
' cmdPrint.Visible = False
Exit Sub
ErrHandler:
If Err = 32755 Then 'Cancel was selected
Exit Sub
' Else
' MsgBox "Please check Printer if properly connected or turned on", _
' vbInformation, ProgName
' Call msgError(Err)
End If
End Sub

Default Paper Size When Printing Crystal Report From VB6
Problem:
When printing a crystal report from VB6, the default paper size sets to 'Letter'. I would like to change this to 'A4'. I have set the paper size of the crystal report to A4 and the default paper size of the printer to A4. When I print the report from crystal it prints fine but when I print the report from VB6, the paper size defaults to letter. This can be changed to A4 using the Advanced layout options but I want A4 to be the default.

Any ideas?

This is the bit of code that sets up the printer and prints the report.

CrRep.Destination = crptToPrinter
CrRep.PrinterSelect
CrRep.PrintReport

Thanks,

Sean

Printing Of Data Report In Half Size Paper
hello..
hope you can all help me with this...

i have a problem and i just want to know if this possible or not in vb.

i need to print a datareport in a half sized paper..
ex. 8 x 11 (short bond)

i need to print my report in a 8 x 5.5 paper size without ejecting the
paper . I am using an epson LQ2180 perinter..

i tried resizing the paper using
printer.papersize = 256

but the printer still get the default paper size
stated in the printer properties
although vb already accept the paper size i declare in my code.( i
checked it when i debug the code)

so please enlighten me with this.
thanks to you all!.
waiting for your quick reply.

thanks,
anna

How To Change The Paper Size Before Printing In Data Report.
I have a problem regarding producing the summary report of the inventory system I am developing in our company. The problem is that I cannot produce a report in data report that is longer than A3 size of a bond paper.

In the design, I tried to enlarge the width but when I run the program, there is an error "Report width is larger than the paper width.

Please help me to have a code that will setup the paper size according to user's choice and preview the report an error.

Note: I dont want code that access Crystal Report. I already know how to change paper size in Crystal Report. What I want to know is the application of dynamic paper sizing in Data Report within the Visual Basic 6.0

URGENT: Printing On A Continuous Paper
How do i set the paper size to 4 inches by 9 inches?

And how do i make the printer stop ejecting the rest of the paper/s after printing?

How Print Custom Paper
anyone can help me to setting the custom paper.
i have paper that width = 42 cm and height = 29.7 cm, in property printer.papersize i use Printer.PaperSize = 256
and Printer.PaperSize = vbPRPSUser but doesn't work. please help me...

Get Paper Size Using VB
hi

does any one know how to get the printer paper size ie height and width.
What dll do I use and if you have an example that would help.

Thanks

zann

Paper Size
Hi, Just Asking on How to set the Paper Size of a DataReport to Legal (8.5x14)?
I try using CommonDIalog Box but it doesn't work..

CommonDialog1.Flags = 64
CommonDialog1.ShowPrinter

I always go to the Printers and Faxes and set the Paper Size to Legal..
But my other projects, need only Letter(8.5x11) that's why I am going to back it's paper size to (8.5x11)..
What code should I write, so that everytime I run this program, the Paper Size will automatically set to Legal (8.5 x 14)
Hope you can help me with this?

Paper Size
anyone have idea on how to set custom papersize for crystal report 8.5?

Paper Size
hi,
 does any gurus/newbies/fanatics know how to change the data report size from A4 to A5... is it possible?

thanks for any avail!

Get Paper Size
How can get all paper size which are available in the system to a list box?

Paper Size
Hi there,
How do I set the paper size to 8.5* 3.66 (default 8.5 * 11)??
This is because I have to print form in dot matrix printer in a 1/3 lenth of a regular paper size.

thank you,
kethees

Paper Size
hello. good day.

how can i retrieve all the supported paper size for a printer?
and how can i set the paper size?

i have tried using the printer collection, but always causes an error.


thanks for the help.

How Can I Automaticaly Fit The Paper Size?
Hi,

Let me try to explain what I want exactly

One of my program is successfully populating the records into many excel worksheets with the given format.
Some of those details are going to many coloums (horizontaly from 'A' coloum to 'O' coloumn). When I am trying print those excel worksheet is A4 size paper, it is coming into more than one paper ('A' to 'K' in one sheet and remaining into another sheet)

How can i automaticaly fit into the A4 size paper width by coding wise?

I know that manually we can go and adjust the size by a draging the lines in print view page. Can I do that through excel automating coding? Is it possible to do? Now everytime user has to go and manually set the lines to fit into the page width

Pls shed some lights on this

Define Paper Size
hi,



Can we define Paper Size (A4 or Legal or Letter) while printing thro macro?.

By giving this below code, it is taking defalut paper size. any idea regarding this.


Range("A1:E25").Select
Selection.Copy
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

suresh

Paper Size Names
Hi,

I'm using the DeviceCapabilities API funciton to retrieve the paer sizes my printer support. I want to display these paper sizes in a combo box. However, the function only returns numeric constants. How do I find paper size name (ie. A4 or Legal) corresponding to a given constant?

Thanks

Change Paper Size
what is the cording to change paper size and set as landscape .. what is the right cording i m trying like this

printer.papersize = 9
printer.oriantation = 2

its not working
y is that ??

what should i do

Printer Paper Size
Hi,

Can anyone tell me a way to set the paper size dynamically in vb? I am developing an application that prints timetables for students. I need to set the paper size dynamically..

Thanks in advance..

graci`as

HOLHI

Print Paper Size
Using a Intermec label printer what line of code do I use to tell it to print 4 inches by 6 inches. I know i can change these settings in the driver, but we are having complications with that. So, if anyone knows the code to set the paper size settings, it would help out a lot.

Thanx in advance.

Print Paper Size
Hi VB Masters ...

i hope someone can help me out with this ...
i have created a couple of forms that have picturesboxs in them .. these images are some documents i scanned ..

my objective is to print these forms wit the exact size of the picturesbox in them (and so i did thanks to this Forums help by adding hte following printpicturebox picture1, 0, 0)

but for some i noticed that one of the picture i inserted to the form is not an A4 size instead its a 33 cm paper size ..

-can i give a command about paper size in the form (VB) or is it not possible
-Or this issue should be solved with the printer i am using .

i am using a Xerox photo copy printer witch can take 2 paper sizes at the same time..

Your help is higly apprexiated.
Thanks

Change Paper Size
How to get the Data Report height after loading the Report?
How to change the user difined Printing paper size in VB?

Excel Fit To A4 Paper Size
I am generating an excel sheet using VB6. Now the report layout is landscape. However some of the columns cross the paper boundary.
Our clients have printers that support A4 paper size only.

Now when I set this using excel this is the macro recorded


Code:
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.View = xlNormalView


however when I use this code in VB it does not work. What can I do????

Paper Size, Setuserpapersize
im using PIN printer to print a cash bill,

the paper size is 8.5 inch x 5.5inch (half of normal fanfold size)

so, the preloaded papersize in crystal report 9.2 doesn't have such paper size, so i need to set it myself




VB Code:
myReport.PaperSize = crPaperUsermyReport.SetUserPaperSize length, width


refer to the help file in crystal report, the length & width value is in pixel, 1 inch equal to 1440 pixels right?
so 8.5 inch should be 12240 pixels & 5.5 is 7920, but end up not what i want.

after few hundred tries, i found that 1335, 2100 nearly equal to 8.5 x 5.5 inch, why?

anyway to change the scalemode of it to cm or inch?

How Can I Change The Paper Size???
Hi to all

I'm using VB6 and i make a report with the datareport (default of vb).

I 'm searching the Web to find how i can change the paper size of the printer that user select but nothing.

I have a report tha prints Folio - Letter but it hasn't the same margins with the vbprpsFOLIO.

When the user select a printer from print button ( In Microsoft DataReport) i want to change the paper size of that printer.



**Sorry for my bad English**

Thnks

Set Paper Size For A Report
I'm trying to print a crystal report to a dot matrix printer. The paper size I want to print onto is 5 1/2 inchs (14cms) in height * 8.3 inches (21.1cms) in width but I can't find anywhere in crystal to set this paper size.

I have also tried going into the printer setup in windows but can't find an option to customize the paper size.

Can this be done from VB? Or how can I set the paper size?

Copyright Đ 2005-08 www.BigResource.com, All rights reserved