做什么我的access report 不能print preview 右边所有的资料（做到辽）

程家伟

我的report已经做好了。。。然后我set了landscap format辽，可是当我print preview的时候。。。做么有一半的右边所有资料会没有出来的？我已经set right margin到 0 了。。还是不能看到？？？

[ 本帖最后由 程家伟 于 2-10-2006 04:14 PM 编辑 ]

程家伟

我找到这个，我是不是跟着这样的coding 呢？我的纸张是set 8.5 X 11 INCH

http://www.techonthenet.com/access/modules/legal.php

Type gtypStr_DEVMODE
    RGB As String * 94
End Type

Type gType_DEVMODE
    strDeviceName As String * 16
    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 * 16
    lngPad As Long
    lngBits As Long
    lngPW As Long
    lngPH As Long
    lngDFI As Long
    lngDFr As Long
End Type

Sub SetToLegal(pReport As String)

    Dim LDevString As gtypStr_DEVMODE
    Dim LDM As gType_DEVMODE
    Dim LDevModeExtra As String
    Dim LRpt As Report

    On Error GoTo Err_Execute

    'Open report in Design view
    DoCmd.OpenReport pReport, acDesign
    Set LRpt = Reports(pReport)

    'Change paper size to legal
    If Not IsNull(LRpt.PrtDevMode) Then

        LDevModeExtra = LRpt.PrtDevMode
        LDevString.RGB = LDevModeExtra
        LSet LDM = LDevString

        '5=legal, 1=standard
        LDM.intPaperSize = 5
        LSet LDevString = LDM
        Mid(LDevModeExtra, 1, 94) = LDevString.RGB
        LRpt.PrtDevMode = LDevModeExtra

    End If

    'Save report changes (suppress system messages temporarily)
    DoCmd.SetWarnings False
    DoCmd.Save acReport, pReport
    DoCmd.Close acReport, pReport
    DoCmd.SetWarnings True

    Exit Sub

Err_Execute:
    MsgBox "Changing paper size to legal failed."
End Sub



You can then call this subroutine as follows:

Private Sub Command0_Click()

    SetToLegal "Report1"

End Sub

This example changes the paper to legal-size for the report called Report1.

程家伟

刚刚自己找到方法了

FILE --> PAGE SETUP --> COLUMN --> CULUMN SIZE地方 --> width -->写自己要的尺寸就可以显示你要的长度了