[Alex7]

Здравствуйте, есть процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button2Click(Sender: TObject); begin   PrinterName :=ListBox1.Items[ListBox1.ItemIndex];   Apex.ActiveWorkBook.Sheets.Item[1].printout(1, 1, 1, false, PrinterName);   Apex.DisplayAlerts:=false;   Apex.Quit;   Apex := Unassigned;   ApexI.DisplayAlerts:=false;   ApexI.Quit;       ApexI := Unassigned; end;

Как выполнять её без использования Button2, просто создать свою процедуру а потом вызвать её?

[lmikle]

А зачем что-то создавать.
У тебя изнутри sender не используется, так что так и вызывай:

Код:

1 2 3 4 5

// Из Form1: Button2Click(Nil);   // Из других форма (Form1 должна быть создана): Form1.Button2Click(Nil);