Discussion :

[gsmdu62]

j'ai implanté une fonction qui selon si une dxfcheckbox est cochée ou non, l'impression se lance en changeant le nombre de copie contenu dans une variable visualisée par un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
WordApp:=CreateOleObject('Word.Application'); //demarrer word
wordApp.Application.Visible:=false; // word invisible
 
  // ** BMW **
 if dxfCheckBox1.Checked=true then Wordapp.Documents.open(ch1);
  if bmw1<>nnn1 then
    wordapp.activeDocument.printout(Copies:=nnn1)else wordapp.activeDocument.printout(Copies:=bmw1);
    sleep(1000);
    wordapp.activedocument.close;
 
 
  // ** V **
  if dxfCheckBox2.Checked=true then Wordapp.Documents.open(ch2);
    if V1<>nnn2 then
    wordapp.activeDocument.printout(Copies:=nn2)else wordapp.activeDocument.printout(Copies:=V1);
    sleep(1000);
    wordapp.activedocument.close;
 
 wordapp.quit;

ce que je ne comprend pas, c'est que lorsque BMW est coché, ça marche par contre si je coche uniquement V il me donne un message d'erreur disant qu'aucun document n'est ouvert sur BMW !!!!
apparement je dois manquer d'une fonction else sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if dxfCheckBox.checked=true then wordapp.open (chemin du fichier); *** ICI ***

si quelqu'un pourrait m'aider ce serait sympas, merci

[Pedro]

Salut
tu n'aurais pas oublié des begin et des end par hasard?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
WordApp:=CreateOleObject('Word.Application'); //demarrer word
wordApp.Application.Visible:=false; // word invisible
 
  // ** BMW **
  if dxfCheckBox1.Checked=true then
  begin
    Wordapp.Documents.open(ch1);
    if bmw1<>nnn1 then
      wordapp.activeDocument.printout(Copies:=nnn1)
    else
      wordapp.activeDocument.printout(Copies:=bmw1);
    sleep(1000);
    wordapp.activedocument.close;
  end;
 
  // ** V **
  if dxfCheckBox2.Checked=true then
  begin
    Wordapp.Documents.open(ch2);
    if V1<>nnn2 then
      wordapp.activeDocument.printout(Copies:=nn2)
    else
      wordapp.activeDocument.printout(Copies:=V1);
    sleep(1000);
    wordapp.activedocument.close;
  end;
wordapp.quit;

[gsmdu62]

Milles merci, tu m'a bien aidé, ça fonctionne impecable maintenant !!!!