Fórum printer setup no quick report #558684

Resolvi o problema fazendo uma modificação no arquivo vcl.printers.pas do Delphi XE6 e compilando o arquivo vcl.printers.dcu para dentro da pasta lib/debug

procedure TPrinter.SetPrinterIndex(Value: Integer); var lDevice, lDriver, lPort : Array[0..255] of Char; lDeviceMode : THandle; begin CheckPrinting(False); if (Value < -1) or (Value >= Printers.Count) then RaiseError(SPrinterIndexError); if (Value = -1) or (PrinterIndex = -1) then //****************** condition from XE5 vcl.printers SetToDefaultPrinter; if Value <> FPrinterIndex then begin if Value <> -1 then //****************** condition from XE5 vcl.printers FPrinterIndex := Value; with TPrinterDevice(Printers.Objects[FPrinterIndex]) do {$IF DEFINED (CLR)} SetPrinter(Device, Driver, Port, 0); {$ELSE} Printer.GetPrinter(lDevice, lDriver, lPort, lDeviceMode); GlobalUnlock(lDeviceMode); GlobalFree(lDeviceMode); lDeviceMode := 0; Printer.SetPrinter(lDevice, lDriver, lPort, lDeviceMode); {$ENDIF} FreeFonts; SetState(TPrinterState.psNoHandle); end; end;