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




Avoid Printer From Ejecting The Paper After The Last Line Printed? (VB - Printer.print)


how to stop the printer from ejecting the paper after the last line has printed?
assume i'm making an invoice for my small store, and i want to print the items my customer bought downward, so whether it's 1 item, or 5 items, or 100 items, i want the printer stop after the last item has printed ( plus my invoice's footer off course ). i am using VB 6, and 'printer.print' code to print and my printer is EPSON LX-300+. and my database is SQL Server 2000 Developer Edition. is there anyone can help? i really appreciate any help you offer

PS : i've been searching this forum and try all topics related to my issue but nothing's suitable for me...so if there's someone can be more specific, i would really appreciate it




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
[crystal Report] Avoid Printer From Ejecting Page After Printing A 3 Line Page
Im taking a printout in crystal report - but there are only 3 lines and after printing it goes to next page - but I dont want it to goto next page.
Instead I want it to continue the rest of the printing - which may be in some other report etc - to continue printing from where it left behind (maybe one or 2 lines break)
But after printing 3 lines it automatically ejects out the paper and goes to next page
How do I avoid this ?
Thanks




Edit by johnminkjan: Topic Title

Anjanesh

Edited by - johnminkjan on 9/7/2004 12:01:29 PM

Change Paper Source/ Printer Bin During Print Job
Is it possible to change the paper source of a print job half-way through?

For instance, i start printing from tray 1, then halfway through, i carry on printing from tray 2?

Thanks for your time

Changing Paper Size In Cdl.ShowPrinter Won't Change Printer.width And Printer.height
Hi,
I use this code to let the user change the paper size and orientation before printing.


VB Code:
CommonDialog.ShowPrintermsgbox printer.width & " " & printer.height 'print code here ...  


but under Windows XP even when I change the paper size from the dialog the vb's printer.width and printer.height arn't changed ....

Is there a better way to change the paper size .. and to retrieve the changed paper size ?

How To Get Satus Of Paper In Printer If Using Printer Objcet.
Hi,
 I am using "printer" object and "print dialog box" (form common dialog boxes) in my code for printing.
I have show a message box to the user (insert paper)in case there is no paper in the printer.
Does anybody know how will I come to know that the printer is out of paper?

Thanks
Neha

Ejecting Page From Dot Matrix Printer
Hi frnd

I'm using visual basic 6.0.

I've developed a program to print in draft mode on a dot matrix printer.

my program creates a text file and then sends the file to dos printer port (LPT1).
Its printing alright but i don't know how to eject a page programmatically from visual basic while printing in draft mode.

Please reply.

Thanks in advance.

Ashish

Prevent Page Ejecting In A Printer
Hi All
I am doin a project of printing some lines in a page ..
The print command keeps coming ( after certain iterval ) & i need to keep
printing it line by line ( Dot Matrix Printer)

In the program I am using a an API function "EndDoc"
However this command will eject the page after printing the line.
So after each line is printed (each single command from porgram) my page is
ejected & next line gets printed in another page

Is there any method i can print in same page witout it being ejected.

thanks & regards
vipin

Line Wrap / Printer.print
How to wrap a (long)line from a textbox to the next line with Printer.Print ?

How Can I Change The Default Printer At Runtime To Use It With Printer.print Command?
Hi everyone,
I have a little application which uses printer.print command to do some print jobs, of course there are some other things that I print using Data Reports.
When my application starts, I think it instantiates printer object with the default printer (lx300). Once the application is started, there are some options that use printer.print, but there are options that use printer.print too but I need to print them in another printer (ip1000). I have a common dialog that lets me choose the printer, and when I choose ip1000 every printer.print call goes to lx300. I assume there's no way to "reinstantiate" printer object to print in ip1000.
Also, when I close my application ip1000 becomes my default printer. Does the common dialog can select a printer without changing the Windows default printer like Word, Excel. do?

Thanks a lot for your help

VB6 - Print A Text File To A Remote Printer And My Default Printer
Please how can I get a text file located in my hard drive (C:) to print to my default printer and also print to a Remote Printer?

The remote printer is named "U288".

Any workable code snipet will be appreciated.

Thanks y'all.

Giftx.

How Can I Change The Default Printer At Runtime To Use It With Printer.print Command?
Hi everyone,
I have a little application which uses printer.print command to do some print jobs, of course there are some other things that I print using Data Reports.
When my application starts, I think it instantiates printer object with the default printer (lx300). Once the application is started, there are some options that use printer.print, but there are options that use printer.print too but I need to print them in another printer (ip1000). I have a common dialog that lets me choose the printer, and when I choose ip1000 every printer.print call goes to lx300. I assume there's no way to "reinstantiate" printer object to print in ip1000.
Also, when I close my application ip1000 becomes my default printer. Does the common dialog can select a printer without changing the Windows default printer like Word, Excel. do?

Thanks a lot for your help

How To Check The Printer On The Network Before Printer.print Method?
Hi,
I am trying to write code to be able to give user option to choose a
printer on the network before they can printer the job.

With printer.print method, VB will not prompt the printer on the
network.
It will only print to the default printer.

Is there a way to be able to choose the printer?



Thanks!

How To Print A Specific File To The Printer/network Printer
I want to print data which is entered in rich textbox. Also I want to set top,left,right and bottom margin of file........

Command Line To Print Postscipt File To Local Printer
Is there a command line I can use to print a postscript file to my local default printer?

Printer Not Responding To Printer.Print --> Help Newbie
First... I am depressed like hell to get this to work.

Problem: I have an "Eltron 310" ID Card Printer. I am trying to do

Printer.PaintPicture IMG_ID,0,0 (where IMG_ID is a picture)
Printer.EndDoc

The above
--> Works with normal printer
--> Does not work with ID Card Printer. ID Printer doesn't even respond to the command, Printer.PaintPicture, nor does it respond to Printer.Print "some text"

PLEASE HELP. ANY CODE IS GREATLY APPRECIATED.

Thanks
Sreeni

Printer Not Responding To Printer.Print --> Help Newbie
First... I am depressed like hell to get this to work.

Problem: I have an "Eltron 310" ID Card Printer. I am trying to do

Printer.PaintPicture IMG_ID,0,0 (where IMG_ID is a picture)
Printer.EndDoc

The above
--> Works with normal printer
--> Does not work with ID Card Printer. ID Printer doesn't even respond to the command, Printer.PaintPicture, nor does it respond to Printer.Print "some text"

PLEASE HELP. ANY CODE IS GREATLY APPRECIATED.

Thanks
Sreeni

? Printer Should Print Your Current Printer - Correct?
I am right in assuming that if I run a standard .exe program and I pause it...then type in the Immediate window the following:


Code:
? Printer

then it should come up with the default printer name - correct? Please let me know if I'm wrong.
Thanks,

Stephen

Wrapping On Printed Output To Printer
Hello,

I am having a problem wiht printing the text just runs off the page, no carriage return, I guess.

I am using a rich text box, heres my code!

Private Sub RichTextBox1_Change()

notes = Val(RichTextBox1.Text)

End Sub

Private Sub Command1_Click()
Dim prt As Printer

On Error GoTo ErrClear

    For Each prt In priners
        If prt.DeviceName = sDeviceName Then
            Set Printer = prt
            Exit For
        End If
    Next prt


Print
Printer.ColorMode = 2
Printer.FontName = verdana
Printer.FontSize = 14

Printer.Print Spc(10), notesthis runs right off the page

Printer.Print Spc(10), RichTextBox1.Text this runs right off the page

Thanks
jeffersonalan


you should have seen what I could do on my PET

Edited by - jeffersonalan on 10/12/2003 2:17:13 PM

Text Size Of Printed RichText On Printer
Printing formatted from a richtextbox to the printer object works quite well.

In order to print several text blocks I need to know the space (height and width) effectively required by the next block.

Is there a way to find out ?

Thanks for help!

Printer Status On/Off - Paper Status...for Any Printer Available On Machine
How do you find out the status of a printer that is available to the machine you are running your app on.

The Printer May be a network printer or a printer connected to this machine.
It may be connected thru a com/lpt/usb port...
It does not have to be the default printer.

How To Printer.Print To Non Default Printer

I have a small app that I need to modify.  Basically it sends a report straight to the (default) printer by Printer.Print

Users want to print to their non-default printer, too.  I could change the default printer by Set Printer = another Printer and then get back to the original one, but is there a better way to do it?
Have fun.

---- Andy

Getting The Total Number Of Pages To Be Printed - Printer Object??
Is there a way to get the total number of pages to be printed using the Printer object?

eg:

Page 1 of 10


I'd like to know ahead of time how many pages will be printed so I can actually 'print' this on the page of my reports?


Thanks in advance~

Eject Paper From Printer
Hi Member!

I have a little problem related to Printing. I am taking printing from Printer.Print Command on cash register Roll up Slips. But after the printing slip paper is ejected. But I dont want to eject the paper. bcz it is continuious paper roll.

So please help me that how can I do it that the paper should not ejected by printer. I am using EPSON LQ-300 printer. Therefore I didnt find any option from the printer properties.

Thanks

shminhas

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

Printer & Paper Metrics
In a printer, how do I know the distance from the left and top borders of the sheet of paper to the printing area? Printer.Scaleleft and Printer.ScaleTop are returned as 0, but the sheet's borders are a few mm to the left and above the printing area.

Printer Paper Setting
Hi folks!


I have custom paper size slightly larger than A4.
(1) How do I code it in VB6 so that the paper size is always set to the customized paper size?

(2) I notice that even I set the top margin to 0, there will still be a gap of 0.5 inch on the top of paper. Meaning the first row of Excel spread sheet will be printer not exactly on the top of the page, but with a 1/2 inch spacing.

Please help!
thanks!

Printer Paper Type
hi, im using crystal report 9.2 for my reporting tools...

in my program, i need to use 2 type of paper Letter type and Fanfold (12 x 5.5 inch) which is half of fanfold type paper..

and im using Panasonic 24 Pin pin printer

and i can't find this paper type in my printer settings,


anyway, how to set my own paper type?


i saw other pc can do it also.. and i sure it can do it, but just i can't find the way..
any idea?

Printer's Paper Orientation
How to change paper orientation in deafult printer ?

Printer Paper Alignment
Working on a program to print on different size envelopes, on different printers. My problem is some users have Ink-jet and some Laser printers.

I find on the Ink-jets, that all materials are feed in and held to the Left of the document feeder, placing 0 on the X axis on the far left. On the Lasers, they have a manual feed in the front. The front feed has slides to adjust to the envelope size, but Zero, on the X axis, is still zero where a 8.5 x 11 page would be. This makes the envelope left edge, several inches in from the Zero axis.

I tried changing the Printer.PaperSize on the Laser and it makes no difference. I need a way to tell if the envelope is going in on the left edge, or centered in a manual feeder. I may just have to make this a user option, if I can not get info back from printer object.

Any clues as to how to get that info from the printer?

Check Printer For Paper
Hi, I have a printing operation that i finally solved with word 2003. That's all great, but i wonder, if possible, to check if the printer is out of paper or not? If it's not possible, then it doesn't really matter. Also, if any can answer this, what does error "-4605 The command is not available" for when i print the documents(By the way, i have over 300 docuemnts to print, all html documents)

VB Printer (paper Size)
ok i made some forms with some pics or documets i scanned as pictureboxes so that they can be edited in the app and printed ,,,, but for some reason one of these forms should be printed on a folio .. so i made an acception


din ddd as boanean
if ttt= true then
printer.papersize = vbprpsfolio
end if

i also got a module from the net so that i can print the picturebox and with values of X and Y

the printer i am using is a Xerox photocopy machine that can take 2 kinds of papers at the same time ...

what i need to know is can this command change the original Paper Media type , is it enough or do u advice i open a printer common dialg for my users ?


thankx

Printer Paper Bins
Hi--I've been trying to a get a printer's available and installed papers bins using the Win API and without using the printer dialog box. I can get the bins supported by the printer's driver using DEVICECAPABILITIES and DC_BINS and DC_BINNAMES but the return information does not reflect what trays are actually installed on the printer just the printer's driver. Any help would be wonderful. Thanks.

Setting Paper Bin Of Default Printer
Hello Everyone! I am stuck again. I am wanting to change the Paper Bin to the Lower Tray of a printer. Now, I have tried using Printer.PaperBin but that does not do what I want it to do. What is happening is I want to change the Paper Bin to the lower tray and then I need to launch AutoCAD where I will be printing a file from. When this gets printed, I want the drawing file from AutoCAD to be printed to the lower bin of the specified printer. Whenever I used the Printer.PaperBin prior to opening this file in AutoCAD, it does not seem to actually change the setting in the printer's property dialog box in Windows. If I print something using Printer.Print "Hello World!", then that prints to the lower bin but the AutoCAD drawing does not. So Printer.PaperBin seems to only change for the current Printer object session but does not actually change the Paper Source setting in the printer's property dialog box. I also tried the ResetPrinterDC API but that seems to work in the same fashion in the sense that it does not actually change the setting in the printer's property dialog box. To make it work, I use sendkeys to simulate changing the Paper Source of the specified printer when I do CommonDialog1.ShowPrinter. I was wondering if there was any way that I can actually set the Paper Source for a specified printer in the printer's property dialog box without having to use the sendkeys to simulate this change? Any ideas?

Thanks in advance.

Paper Sizes Available For A Printer In Access
I'm setting up a print settings form for reports in Access because I will be having several people using my program and I don't want the changes that one person makes to affect the program itself.

I've got everything except for the paper sizes available for the printer.

How is this normally handled? Access has a lit of paper size constants. Do people normally just display all of them (with their string equivalent, of course)?

If not, can I get the sizes available for a printer directly from Access or will I need to use API to get them? Or is this something that I'm only imagining exists?

How Set The Paper Size, Printer.Papersize(?)
I am coding a little program to print graph paper.. (everyone's done this I presume).. I've got it to print on the standard 8.5 X 11 paper which I have figured out is the default setting when printing in VB..
What I want to do is have an option for the user to use 14 inch paper.. I'm stuck at Printer.Papersize(?) Whats the syntax ? Thanks

Change Printer Paper Size
my DataReport paper size is larger than the printer default size

How to change paper size programatically?


Code:
Printer.PaperSize = PrinterObjectConstants.vbPRPSUser 'supported by the priner driver
Printer.Width = #### 'number in twips which is larger than my report width
OR

Code:
Printer.PaperSize = ...A2 'The constant for A2 which is also supported by the printer driver
won't work, it has no effect on the printer at all (for my program or system-wide) and the error still popups.


the printer is EPSON LQ-1050 (wich driver is packed with win98/ME)

I searched the forums for this, I found alot of articles, I read more than 50 one, I got nothing usefull.

and this is the same article I wrote in other forum with about 4 replies and had no answer.
http://www.vbforums.com/showthread.p...51#post1555751

any help please

Check If Printer Has Paper Before Printing
How can I check to see if the printer has paper in tray 1, tray 2 etc? I would like to check before each page is sent over.

Printer Just Feeds Out Paper Instead Of Printing
Hello to everyone viewing.

I have a printing problem.

My VB6 program has to print a list which comprises of a header, a few labels and the contents of a listview, the code I use is posted below.

Most of the time this code works perfectly fine and prints the list as required but every now and again when I try to print the list, the printer just feeds out blank sheets out paper continuously and prints nothing.

I have tried my program on 3 seperate computers with 3 different types of printer, they all print ok but all 3 just feed out paper occasionaly.

Here is my code.

Code:
Private Sub cmdPrint_Click() 'Print ListView command
Dim a As clsPrintLV
Set a = New clsPrintLV 'Call Print Class module

a.PrintListView ListView1
Printer.EndDoc

MsgBox "The current list has been sent to the Printer.", vbInformation, "Print Manager"
End Sub


Option Explicit

Public Event MaxYReached(ByVal CurrentY As Double, ByRef oPrinter As Object, ByRef bRePrintHeader As Boolean)
Public Event Progress(ByVal oNextListItem As ListItem, ByRef oPrinter As Object, ByRef bRePrintHeader As Boolean, ByVal lTotalLines As Long, ByRef bCancel As Boolean)
Dim Page As Integer
Private mlFromX As Long

Public Sub PrintListView(lvListview As ListView, Optional ByVal oPrinter As Object, Optional ByVal bLines As Boolean = False, Optional ByVal bBlackAndWhite As Boolean = True, Optional ByVal MaxY As Double, Optional ByVal lFromX As Long)
Dim oListItem As ListItem
Dim oSubItem As ListSubItem
Dim oColumnHeader As ColumnHeader
Dim iCounter As Integer
Dim lPrevY As Long
Dim sCorrectPrintText As String
Dim bRePrintHeader As Boolean
Dim bCancel As Boolean

MaxY = 15000
mlFromX = lFromX
Set oPrinter = Nothing

If oPrinter Is Nothing Then
Set oPrinter = Printer
End If

With oPrinter
.Font = lvListview.Font
.FontSize = 10
Call PrintHeader(lvListview, oPrinter)

.CurrentY = .CurrentY + .TextHeight(" ") + (.TextHeight(" ") / 2)
For Each oListItem In lvListview.ListItems
bRePrintHeader = False
RaiseEvent Progress(oListItem, oPrinter, bRePrintHeader, lvListview.ListItems.Count, bCancel)

If bCancel Then
Exit For
End If

If bRePrintHeader Then
Call PrintHeader(lvListview, oPrinter)
End If

Set oColumnHeader = lvListview.ColumnHeaders(1)
lPrevY = .CurrentY
.CurrentY = lPrevY
.CurrentX = .CurrentX - oListItem.Width

Select Case oColumnHeader.Alignment
Case lvwColumnLeft
.CurrentX = mlFromX + oListItem.Left + 550 'sets print distance from left for 1st column
Case lvwColumnRight
.CurrentX = mlFromX + oListItem.Left + oListItem.Width - .TextWidth(oColumnHeader.Text) - 120
Case lvwColumnCenter
.CurrentX = mlFromX + oListItem.Left + ((oListItem.Width - .TextWidth(oListItem.Text)) / 2)
End Select

.ForeColor = IIf(bBlackAndWhite, vbBlack, oListItem.ForeColor)

If oListItem.Width > 15 Then
sCorrectPrintText = Trim$(oListItem.Text)

If .TextWidth(sCorrectPrintText) > oColumnHeader.Width - 60 Then
Do Until Not .TextWidth(sCorrectPrintText & "...") > (oColumnHeader.Width - 120)
sCorrectPrintText = Mid$(sCorrectPrintText, 1, Len(sCorrectPrintText) - 1)
Loop

sCorrectPrintText = sCorrectPrintText & "..."
End If

Debug.Assert sCorrectPrintText = Trim$(oListItem.Text)
oPrinter.Print sCorrectPrintText; 'Because of some weird bug there has to be oPrinter before this
' If i dont add the oPrinter i get a syntax error
End If

.CurrentY = lPrevY

For Each oSubItem In oListItem.ListSubItems
Set oColumnHeader = lvListview.ColumnHeaders(oSubItem.Index + 1)

Select Case oColumnHeader.Alignment
Case lvwColumnLeft
.CurrentX = mlFromX + oColumnHeader.Left + 550 'sets print distance from left for sub item columns
Case lvwColumnRight
.CurrentX = mlFromX + oColumnHeader.Left + oColumnHeader.Width - .TextWidth(oSubItem.Text) - 120
Case lvwColumnCenter
.CurrentX = mlFromX + oColumnHeader.Left + ((oColumnHeader.Width - .TextWidth(oSubItem.Text)) / 2)
End Select

.ForeColor = IIf(bBlackAndWhite, vbBlack, oSubItem.ForeColor)

If oColumnHeader.Width > 15 Then
sCorrectPrintText = Trim$(oSubItem.Text)

If .TextWidth(sCorrectPrintText) > oColumnHeader.Width - 120 Then
Do Until Not .TextWidth(sCorrectPrintText & "...") > (oColumnHeader.Width - 120) Or (sCorrectPrintText = "")
sCorrectPrintText = Mid$(sCorrectPrintText, 1, Len(sCorrectPrintText) - 1)
Loop
sCorrectPrintText = sCorrectPrintText & "..."
End If

oPrinter.Print sCorrectPrintText;
End If

.CurrentY = lPrevY
Next

.CurrentY = .CurrentY + oListItem.Height

If .CurrentY > MaxY Then
oPrinter.NewPage
Call PrintHeader(lvListview, oPrinter)
.CurrentY = .CurrentY + .TextHeight(" ") + (.TextHeight(" ") / 2)
End If
Next
End With


oPrinter.Print ""
oPrinter.Print ""
oPrinter.Print ""
oPrinter.CurrentX = 8000
oPrinter.Print "Outstanding Balance : " & " " & frmOtstngAcc!lblBal.Caption
oPrinter.EndDoc
End Sub

Public Sub PrintHeader(lvListview As ListView, oPrinter As Object)
Dim lPrevY As Long
Dim oColumnHeader As ColumnHeader
Dim sCorrectPrintText As String

Page = Page + 1

With oPrinter
'Print Date
.CurrentX = 490
.CurrentY = 2500
oPrinter.Print "Date : " & frmOtstngAcc!lblDate2.Caption

'Print Page number
.CurrentX = 10100
.CurrentY = 2500
oPrinter.Print "Page : " + Str(Page)

'Print Insurance Company
.CurrentX = 490
.CurrentY = 3000
oPrinter.Print "Company : " & frmOtstngAcc!cboInsCo.Text

'Print label Outstanding Accounts
.CurrentX = 4500
.CurrentY = 3500
.FontUnderline = True
oPrinter.Print "OUTSTANDING ACCOUNTS"
.FontUnderline = False

For Each oColumnHeader In lvListview.ColumnHeaders
If oColumnHeader.Width > 60 Then

lPrevY = 4000 'sets print distance from top

Select Case oColumnHeader.Alignment
Case lvwColumnLeft
.CurrentY = 4000 ''sets print distance from top for 1st column header
.CurrentX = mlFromX + oColumnHeader.Left + 550 'sets print distance from left for 1st column header
Case lvwColumnRight
.CurrentX = mlFromX + oColumnHeader.Left + oColumnHeader.Width - .TextWidth(oColumnHeader.Text) - 120
Case lvwColumnCenter
.CurrentX = mlFromX + oColumnHeader.Left + ((oColumnHeader.Width - .TextWidth(oColumnHeader.Text)) / 2) + 900
End Select 'sets print distance from left for Date column

If oColumnHeader.Width > 15 Then
sCorrectPrintText = Trim$(oColumnHeader.Text)

If sCorrectPrintText <> "" Then
If .TextWidth(sCorrectPrintText) > oColumnHeader.Width - 120 Then
Do Until Not .TextWidth(sCorrectPrintText & "...") > (oColumnHeader.Width - 120) Or (sCorrectPrintText = "")
sCorrectPrintText = Mid$(sCorrectPrintText, 1, Len(sCorrectPrintText) - 1)
Loop

sCorrectPrintText = sCorrectPrintText & "..."
End If

oPrinter.Print sCorrectPrintText;
End If
End If

.CurrentY = lPrevY
End If
Next

'Print Line
Printer.DrawWidth = 8
oPrinter.Line (250, 4275)-(11200, 4275)
End With
End Sub



Please help me if you can.
I've got to go out to work now so I wont be able to reply to any posts untill tommorow 12.00 GMT

Thanks

Steve.

Using VB Printer Object Paper Size
hello, i noticed that whenever i printed with d printer object , the printed text gets cut off, of the right side of d paper. how can i wrap it like normal printer (i.e like notepad)

dim s as string
s="some lenghty message.....end of message"

it gets printed on a line
oyad

[B]Scroll Back Paper In Printer
Can any body help me to move back the paper in a dot matrix printer using code.In any dot matrix printer like epson lx300,wipro lx700 etc.
mail.sujajoyc@yahoo.co.in

Change Printer Paper Size
my datareport reportWidth is about 20000 twips witch equal about 330 mm

when change paper size of the printer sittings to A2 (420 mm width) it works
when change paper size of the printer sittings to any other (smaller): "Error: Report width is larger than the paper width"

I put the folowing code to change the paper size before DataReport1.Show:

Code:
Printer.PaperSize = 258 'equivalent to A2 paper size

or

Code:
Printer.PaperSize = PrinterObjectConstants.vbPRPSUser
Printer.Width = 20000
Printer.Height = 20000

But the code did nothing

How can I change printer paper size by code?

Note that the printer is compatible with Epson LQ-1050


Of course I searched the forums for this "Printer paper size" and found alot of articles most left with no answer or not atchived a solution

please I realy need your help

Default Printer - Set Paper Size - Need Help
How do you set the default printer's papersize to legal or letter? Really need help on this.

Searched the forum already but seem like nothing is working.

Thanks

Printer Property, Paper Feed
Hi friends,

I have a problem. I have a hp officejet device with 2 paper trays . In the printer option page i can chose where the paper will be dropped (1st or 2de trays ). I need to set this option in vb so i can automate a report but i don't know how i can write to the printer propertys. Do somone know how to do?

thanks,
Matrixxx

Selecting The Paper Tray Of Printer
Guys,
i Have HP LaserJet 4600 dtn printer. It has three paper trays. So i want to select the paper trays of the printer programmatically. Does any one have any idea about this.
Thanx.

Zia.

Default Printer Paper Size
I have mapped printers on the login script using the following code:

PrinterPath = "\serverprinter"
PrinterDriver = "Lexmark Optra Color 1200 (MS)"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver

This works fine for all users.

The problem I have is that the printer's default paper size is set as 'Letter' for all users even though it is set as A4 on the Printer Server. I can manually change it and Terminal Server does remember this change, however changing this for every printer for every user, is an absolute nightmare.

Does anyone know a line I could add in to set the defaul paper size when the user logs in? Something like:

PrinterPaperSize = "A4"

Thanks
James

Changing Printer Paper Type.. ?
hi, I've searched the forums, but cannot find an answer to my question..

Basically, the network is running NT4, and the printer paper type always goes to "Letter" (Paper Type 1(?)).. Is there anyway that I can change this via VB?

Any info appreciated. thanks!

Designating Printer Paper Size
How can I designate the printer paper size before sending the job to the printer without using the CommonDialog box?

I am just using one printer on the machine.

My Printer Just Churns Out Blank Paper!!
I've got a large string which i'm trying to print (ie, send to the printer) called printstr.

On Error GoTo err1
CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter

Printer.NewPage
Printer.Font = "Arial"
Printer.ColorMode = 1

Print printstr

Printer.EndDoc
Printer.KillDoc

This just send blank pages out the printer... does anyone have a suggestion?

Is there a function to call the system print command on a text file?

Cheers
Mafro

Changing Printer Paper Size
There was a question not long ago about how to change th papersize property of the printer. What I want to know is how t get a list of available paper sizes for a given printer Something similar like list of fonts eg. Printer.FontCount Anybody knows how to do this programatically, without opening printer setup dialog box?

Printer Orientation And Paper Size
hello all,
please help about printer orientation and paper size. any body here know on how to control the printer orientation and paper size. using vb.

thank u
joseph

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