Hi guys....I had a problem with printing an invoice report on a continuous paper 4.75"x5.5"

Everytime users click button cmdPrintInvoice on frmOrderForm in order to print an invoice report rptInvoice based on OrderID popped up by input box(set within the query), it always prints on normal A3 paper, which is 9.5"x11"...

Even tough I have already set the paper size on the Page Setup at Report design view and Print Dialog box for printing an invoice report with the paper size 4.75"x5.5" (half A3 paper size), it's still not working ...also there was no custom paper size function on the print dialog box

So, it is possible to force printing an invoice report with the paper size 4.75"x5.5" by using VBA code or how to change the default paper size (by inch) into cm...I was thinking the problem is related with PrtDevMode by setting the PaperLength and PaperWidth...but i am still learning about VBA and confuse in setting the papersize...I desperately need some help please...

Ohh, I'm using access xp on windows 2000 and Epson LQ1050+ printer (dot matrix)...sory for very long explanation...i tried to make it as clear as possible

Thanks a million in advance for any help and advice :)

Cheers,

Fehrer

this may shed some light

http://support.microsoft.com/?kbid=200546

Hi jemacc,

Thanks for ur advice...it's very helpful...
As I saw from the url u posted, i have made some modification to the vba coding because i'm using access xp and my printer doesn't have several paper trays....

Here is my coding...

Option Compare Database

Private Type str_DEVMODE
    RGB As String * 94
End Type

Private Type type_DEVMODE
    strDeviceName As String * 32
    intSpecVersion As Integer
    intDriverVersion As Integer
    intSize As Integer
    intDriverExtra As Integer
    lngFields As Long
    intOrientation As Integer
    intPaperSize As Integer
    intPaperLength As Integer
    intPaperWidth As Integer
    intScale As Integer
    intCopies As Integer
    intDefaultSource As Integer
    intPrintQuality As Integer
    intColor As Integer
    intDuplex As Integer
    intResolution As Integer
    intTTOption As Integer
    intCollate As Integer
    strFormName As String * 32
    lngPad As Long
    lngBits As Long
    lngPW As Long
    lngPH As Long
    lngDFI As Long
    lngDFr As Long
End Type

Public Sub CheckCustomPage(ByVal rptName As String)

    Dim DevString As str_DEVMODE
    Dim DM As type_DEVMODE

    Dim strDevModeExtra As String
    Dim rpt As Report
    Dim intResponse As Integer

    ' Opens report in Design view.
    DoCmd.OpenReport rptName, acDesign
    Set rpt = Reports(rptName)

    If Not IsNull(rpt.PrtDevMode) Then
        strDevModeExtra = rpt.PrtDevMode

        ' Gets current DEVMODE structure.
        DevString.RGB = strDevModeExtra
        LSet DM = DevString
        If DM.intPaperSize = 256 Then

            ' Display user-defined size.
            intResponse = MsgBox("The current custom page size is " & _
                         DM.intPaperWidth / 254 & " inches wide by " & _
                         DM.intPaperLength / 254 & " inches long. Do you want " & _
                         "to change the settings?", vbYesNo + vbQuestion)
        Else
            ' Currently not user-defined.
            intResponse = MsgBox("The report does not have a custom page size. " & _
                         "Do you want to define one?", vbYesNo + vbQuestion)
        End If

        If intResponse = vbYes Then
            ' User wants to change settings. Initialize fields.
            DM.lngFields = DM.lngFields Or DM.intPaperSize Or _
                         DM.intPaperLength Or DM.intPaperWidth

            ' Set custom page.
            DM.intPaperSize = 256

            ' Prompt for length and width.
            DM.intPaperLength = InputBox("Please enter page length in inches.") * 254
            DM.intPaperWidth = InputBox("Please enter page width in inches.") * 254

            ' Update property.
            LSet DevString = DM
            Mid(strDevModeExtra, 1, 94) = DevString.RGB
            rpt.PrtDevMode = strDevModeExtra

            DoCmd.OpenReport rptName, acNormal

        End If
    End If

    Set rpt = Nothing

End Sub

However, when i run CheckCustomPage("rptInvoice") on the immediate window, it still did not print on 4.75x5.5" page size...was there something wrong with the vba coding...or is it because my printer EPSON LQ 1050+ does not support custom size paper?

What do u think about this?
Have anyone had experience this problem? I'm desperately need help :(

Cheers,
Fehrer

Check your printer documentation. There may be some escape code you may have to change.

hi jemacc,

unfortunately, my printer is quite pretty old...it's EPSON LQ 1050+ dot matrix...and i lost its documentation ...any other suggestion?

cheers,

fehrer

Do you remember how to change the printer mode? Epson had some unique settings with thier printers. I believe you can still get the documentation. If I find the esc codes I will send them to you.