|
#1
|
|||
|
|||
Процедура Delphi
Здравствуйте, есть процедура:
Код:
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; |
#2
|
|||
|
|||
А зачем что-то создавать.
У тебя изнутри sender не используется, так что так и вызывай: Код:
// Из Form1: Button2Click(Nil); // Из других форма (Form1 должна быть создана): Form1.Button2Click(Nil); |