Arsip: deteksi paper

 
user image
more 13 years ago

asiyrob

ass.. para suhu tercayank..anak bawang mo tanya lagi yee.. deteksi paper (HVS/A4/Quarto/dsb..) yang digunakan ketika print.. udah buat progam rental nich..tp blom "perfect"..mo nya sich otonatis gizoo.. bisa ga yah???..thanks..coluci na.. wass..
user image
more 13 years ago

mas_kofa

kalo pake printer sih..kayak nya gak bisa.......tuh...(menurut gue...) fungsi yang ada pada printer yg berkaitan kertas adalah : out of paper dan paper jam.......... ada pendapat lain....?????
user image
more 13 years ago

BLie2000

maksudnya deteksi paper yang masuk apakah hvs/a4 ato lain gitu ????...
user image
more 13 years ago

maulaku

ini source code untuk mendapatkan default kertas di printer : uses WinSpool, Printers; procedure GetPaperBins(sl: TStrings); type TBinName = array of Char; TBinNameArray = array of TBinName; PBinnameArray = ^TBinNameArray; TBinArray = array of Word; PBinArray = ^TBinArray; var Device, Driver, Port: array of Char; hDevMode: THandle; i, numBinNames, numBins, temp: Integer; pBinNames: PBinnameArray; pBins: PBinArray; begin Printer.PrinterIndex := -1; Printer.GetPrinter(Device, Driver, Port, hDevmode); numBinNames := WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, nil, nil); numBins := WinSpool.DeviceCapabilities(Device, Port, DC_BINS, nil, nil); if numBins <> numBinNames then begin raise Exception.Create('DeviceCapabilities reports different number of bins and bin names!'); end; if numBinNames > 0 then begin pBins := nil; GetMem(pBinNames, numBinNames SizeOf(TBinname)); GetMem(pBins, numBins SizeOf(Word)); try WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, PChar(pBinNames), nil); WinSpool.DeviceCapabilities(Device, Port, DC_BINS, PChar(pBins), nil); sl.Clear; for i := 1 to numBinNames do begin temp := pBins^[i]; sl.addObject(pBinNames^[i], TObject(temp)); end; finally FreeMem(pBinNames); if pBins <> nil then FreeMem(pBins); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin GetPaperBins(Listbox1.Items); end; contoh program bisa di download di : http://www.esnips.com/doc/802554ad-b7f1-48e1-b6f1-c935968fdb86/Mendapatkan-Deafult-Kertas-Di-Printer
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com