Delphi-Quellcode:
procedure TKundenmenu.Button5Click(Sender: TObject);
begin
DatMod.KQU.First;
if DatMod.KQu.Active = true
then
begin
if Druckauswahl.ItemIndex = 0
then l9_1.Print(0,LL_PROJECT_LIST,ExtractFilePath(Application.ExeName)+'
drucken\Kunden\',1,LL_PRINT_EXPORT,LL_BOXTYPE_NORMALWAIT,
handle,'
Drucken/Exportieren', 1,'
');
if Druckauswahl.ItemIndex = 1
then l9_1.Design(0,
handle,'
Druck-Designer', LL_PROJECT_LIST,ExtractFilePath(Application.ExeName)+'
drucken\Kunden\',0);
if Druckauswahl.ItemIndex = 2
then l9_1.Design(0,
handle,'
Druck-Designer', LL_PROJECT_LIST,ExtractFilePath(Application.ExeName)+'
drucken\Kunden\',1);
end else ShowMessage('
QUERY CLOSED');
end;
Hier geht es aber wirklich nur um die eine
Query.
PS: Jaja, jetzt bitte nicht wieder die Case-Propagonisten!
@shmia: das klappt bei mir gar net. Da is Jacke wie Hose, das kommt bei beidem das gleiche raus...
