Page Setup on Form Load

[DanAuber]

I want to write some VB code that so every time I load a certain form (so this code would be in the On Load event of the Form) - the page setup is switched to Landscape and the left and right margins are reduced to 20 mm. Can anyone help me with this code ? - Hoping this is a very simple request

Thanks

Dan

 

[MajP]

This is from the help file. You should be able to modify it to meet your needs.

Orientation determines the layout. acPRORLandscape is the constant for landscape. The margins are in twips (1 in = 1440)

Sub SetPrinter(strFormname As String)

    DoCmd.OpenForm FormName:=strFormname, view:=acDesign, _
                   datamode:=acFormEdit, windowmode:=acHidden
    
    With Forms(form1).Printer
    
        .TopMargin = 1440
        .BottomMargin = 1440
        .LeftMargin = 1440
        .RightMargin = 1440
    
        .ColumnSpacing = 360
        .RowSpacing = 360
    
        .ColorMode = acPRCMColor
        .DataOnly = False
        .DefaultSize = False
        .ItemSizeHeight = 2880
        .ItemSizeWidth = 2880
        .ItemLayout = acPRVerticalColumnLayout
        .ItemsAcross = 6
    
        .Copies = 1
        .Orientation = acPRORLandscape
        .Duplex = acPRDPVertical
        .PaperBin = acPRBNAuto
        .PaperSize = acPRPSLetter
        .PrintQuality = acPRPQMedium
    
    End With
    
    DoCmd.Close objecttype:=acForm, objectname:=strFormname, _
                Save:=acSaveYes


End Sub

 

[TheAceMan1]

How are ya DanAuber . . .

For starters . . . setup a report instead!

From my experience, printing forms is always prone to diaster! . . . The reason I never print forms, in the first place!

I've found that printing reports after you've set [blue]Page Setup[/blue] . . . [blue]always holds true to that setup![/blue]

[blue]Do a report instead! . . . [/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886