PLACER LE TEXTE SUR UN OBJET PRINTER X,Y

'créer une form1 avec un boutton config pour afficher form2 ci-dessous :form2.show modal,form1


'créer une feuille avec 2 zone de text "haut.text ; gauche.text" et 5 boutton 

Private Sub ok_Click()
    MG = gauche.Text 'marge de gauche
    MH = haut.Text 'marge du haut
    
Open App.Path + "\Config.cfg" For Output As #1
    Write #1, MG 'marge de gauche
    Write #1, MH 'marge du haut
Close #1

    
End Sub


Private Sub Form2_Load()
    
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

'permet de récupérer les valeurs 
    Open App.Path + "\Config.cfg" For Input As #1
    Input #1, MG
    Input #1, MH
    Close #1

    gauche.Text = MG 'zone text enabled=false
    haut.Text = MH 'zone text enabled=false
    
End Sub

Private Sub HLBBttn2_Click()
    i = gauche.Text
    If i = "" Then i = O
    i = Int(i) + 1
    gauche.Text = i
    g$ = i
    gauche.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn3_Click()
    i = gauche.Text
    If i = "" Then i = O
    i = Int(i) - 1
    gauche.Text = i
    g$ = i
    gauche.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn4_Click()
    i = haut.Text
    If i = "" Then i = O
    i = Int(i) - 1
    haut.Text = i
    g$ = i
    haut.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn5_Click()
    i = haut.Text
    If i = "" Then i = O
    i = Int(i) + 1
    haut.Text = i
    g$ = i
    haut.ToolTipText = g + " mm."
End Sub



'maintenant le code d'impression que vous coller sur le click d'un boutton sur une form principal avec une zone de texte qui contient le texte que vous voullez imprimer... 


Open App.Path + "\config.cfg" For Input As #1
    Input #1, MG 'recupére les valeurs
    Input #1, MH
Close #1

    Printer.CurrentX = 0 + MG
    Printer.CurrentY = 0 + MH
    Printer.FontSize = 12
    Printer.ScaleMode = 6    'mm.

printer.print form1.text1.text 'imprime la zone de text de form1
printer.endoc

'donc dans votre projet vous devez avoir créer une form principal et une 2éme form "config"