Hi,
kurze Frage:
Kann jemand diesen Fehler nachvollziehen.
Delphi-Quellcode:
procedure TForm2.BitBtn1Click(Sender: TObject);
var
JclPrintSet:TJclPrintSet;
begin
JclPrintSet:=TJclPrintSet.Create;
JclPrintSet.GetBinSourceList(CbSchacht.Items);
CbSchacht.ItemIndex:=JclPrintSet.BinIndex;
JclPrintSet.Free;
// jetzt sollte eigendlich Landscape gedruckt werden. Tut's aber nicht.
printer.Orientation:=poLandscape;
printer.BeginDoc;
printer.Canvas.textout(0,0,'Ein Test');
printer.EndDoc;
end;
Sobald ich einmal GetBinSourceList aufgerufen habe, ist es nicht mehr möglich die orientation auf poLandscape zu setzen. Es wird immer portrait gedruckt.
Version der JCL ist 1.99
Gerd