Delphi using QR print statements, including text need to rotate 90 degrees, print it out, I have been in print preview shows rotated 90 degrees, but printed or side-by-side, a great god, please help!!!!!!!!!!
The following is my part of the code print preview:
FillChar (LogFont, SizeOf (LogFont), 0).
LogFont. LfEscapement:=900;//unit of 0.1 degrees, landscape
LogFont. LfWeight:=500;
LogFont. LfFaceName:='song typeface';
LogFont. LfHeight:=11;
FHFont:=CreateFontIndirect (LogFont);
FH2:=SelectObject (Canvas. Handle, FHFont);
QRDBText37. The Font. Handle:=SelectObject (Canvas. Handle, FH2);
QRPreview1. QRPrinter:=QRtongzhi. QRPrinter;

CodePudding user response:

Use the font, Hong Kong and Taiwan have rotated 90 degrees,

CodePudding user response:

Estimated information set is wrong

CodePudding user response:

QR statements require the system to install the font to achieve
Printers can also through direct operation code (this is too long, should can be found in this web site, when I am here to find a way)

CodePudding user response:

Because different devices have different operating ability, so you need to first GetDeviceCaps (Printer. Handle, TC_CR_90); Check the printer support font rotate 90 degrees, if not support, can only put a picture in that position, the calligraphy and painting to the pictures,