openaccess/test/source/forms/frm_ChoixImpr.bas

Version =20
VersionRequired =20
Begin Form
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =6994
    DatasheetFontHeight =11
    ItemSuffix =6
    Right =10815
    Bottom =7920
    DatasheetGridlinesColor =14806254
    RecSrcDt = Begin
        0x5730dc3c1438e440
    End
    OnCurrent ="[Event Procedure]"
    DatasheetFontName ="Calibri"
    FilterOnLoad =0
    ShowPageMargins =0
    DisplayOnSharePointSite =1
    DatasheetAlternateBackColor =15921906
    DatasheetGridlinesColor12 =0
    FitToScreen =1
    DatasheetBackThemeColorIndex =1
    BorderThemeColorIndex =3
    ThemeFontIndex =1
    ForeThemeColorIndex =0
    AlternateBackThemeColorIndex =1
    AlternateBackShade =95.0
    Begin
        Begin Label
            BackStyle =0
            FontSize =11
            FontName ="Calibri"
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =0
            BorderTint =50.0
            ForeThemeColorIndex =0
            ForeTint =50.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =11
            FontWeight =400
            FontName ="Calibri"
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
            UseTheme =1
            Shape =1
            Gradient =12
            BackThemeColorIndex =4
            BackTint =60.0
            BorderLineStyle =0
            BorderColor =16777215
            BorderThemeColorIndex =4
            BorderTint =60.0
            ThemeFontIndex =1
            HoverThemeColorIndex =4
            HoverTint =40.0
            PressedThemeColorIndex =4
            PressedShade =75.0
            HoverForeThemeColorIndex =0
            HoverForeTint =75.0
            PressedForeThemeColorIndex =0
            PressedForeTint =75.0
        End
        Begin TextBox
            AddColon = NotDefault
            FELineBreak = NotDefault
            BorderLineStyle =0
            Width =1701
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AsianLineBreak =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ThemeFontIndex =1
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin ListBox
            BorderLineStyle =0
            Width =1701
            Height =1417
            LabelX =-1701
            FontSize =11
            FontName ="Calibri"
            AllowValueListEdits =1
            InheritValueList =1
            ThemeFontIndex =1
            BackThemeColorIndex =1
            BorderThemeColorIndex =1
            BorderShade =65.0
            ForeThemeColorIndex =0
            ForeTint =75.0
            GridlineThemeColorIndex =1
            GridlineShade =65.0
        End
        Begin Section
            Height =5725
            BackColor =15195103
            Name ="Détail"
            AlternateBackColor =15921906
            AlternateBackThemeColorIndex =1
            AlternateBackShade =95.0
            Begin
                Begin ListBox
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =170
                    Top =510
                    Width =6300
                    Height =4408
                    BackColor =15524070
                    ForeColor =4210752
                    BorderColor =10921638
                    Name ="lstImpr"
                    RowSourceType ="Value List"
                    RowSource ="\"\""
                    ColumnWidths ="3525"
                    GridlineColor =10921638

                    LayoutCachedLeft =170
                    LayoutCachedTop =510
                    LayoutCachedWidth =6470
                    LayoutCachedHeight =4918
                    BackThemeColorIndex =7
                    BackTint =20.0
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =165
                            Top =120
                            Width =3015
                            Height =315
                            FontWeight =700
                            BorderColor =8355711
                            Name ="Col1_Étiquette"
                            Caption ="Sélectionnez votre imprimante:"
                            GridlineColor =10921638
                            LayoutCachedLeft =165
                            LayoutCachedTop =120
                            LayoutCachedWidth =3180
                            LayoutCachedHeight =435
                            ForeTint =100.0
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =93
                    Left =1247
                    Top =5159
                    Width =1757
                    Height =340
                    TabIndex =1
                    ForeColor =4210752
                    Name ="Ok"
                    Caption ="OK"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =1247
                    LayoutCachedTop =5159
                    LayoutCachedWidth =3004
                    LayoutCachedHeight =5499
                    Gradient =0
                    BackColor =15527148
                    BackThemeColorIndex =-1
                    BackTint =100.0
                    BorderColor =14136213
                    HoverColor =15060409
                    PressedColor =9592887
                    HoverForeColor =4210752
                    PressedForeColor =4210752
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                    Overlaps =1
                End
                Begin TextBox
                    Visible = NotDefault
                    OverlapFlags =215
                    IMESentenceMode =3
                    Left =1360
                    Top =4988
                    Width =1700
                    Height =315
                    TabIndex =2
                    BorderColor =10921638
                    ForeColor =4210752
                    Name ="impr"
                    GridlineColor =10921638

                    LayoutCachedLeft =1360
                    LayoutCachedTop =4988
                    LayoutCachedWidth =3060
                    LayoutCachedHeight =5303
                    Begin
                        Begin Label
                            Visible = NotDefault
                            OverlapFlags =223
                            Left =113
                            Top =4989
                            Width =1275
                            Height =315
                            BorderColor =8355711
                            ForeColor =8355711
                            Name ="Étiquette4"
                            Caption ="impr choisie:"
                            GridlineColor =10921638
                            LayoutCachedLeft =113
                            LayoutCachedTop =4989
                            LayoutCachedWidth =1388
                            LayoutCachedHeight =5304
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3572
                    Top =5159
                    Width =1757
                    Height =340
                    TabIndex =3
                    ForeColor =4210752
                    Name ="Annuler"
                    Caption ="Annuler"
                    OnClick ="[Event Procedure]"
                    GridlineColor =10921638

                    LayoutCachedLeft =3572
                    LayoutCachedTop =5159
                    LayoutCachedWidth =5329
                    LayoutCachedHeight =5499
                    Gradient =0
                    BackColor =15527148
                    BackThemeColorIndex =-1
                    BackTint =100.0
                    BorderColor =14136213
                    HoverColor =15060409
                    PressedColor =9592887
                    HoverForeColor =4210752
                    PressedForeColor =4210752
                    WebImagePaddingLeft =2
                    WebImagePaddingTop =2
                    WebImagePaddingRight =1
                    WebImagePaddingBottom =1
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub Annuler_Click()
Me.impr = "annuler"
End Sub

Private Sub Ok_Click()
Dim impr As String
Me.impr = Me.lstImpr
End Sub

Private Sub Form_Current()
Me.impr = ""
'on liste les imprimantes
For Each prt In Application.Printers
Me.lstImpr.AddItem prt.DeviceName
Next
Me.lstImpr.AllowValueListEdits = False
End Sub