On Hand/On_Hand_From_Softbank_1994_Release_2_Disc_1_1994.iso/00057/s/clikbook.xl$/CLIKBOOK.XLA

Excel Spreadsheet | 1993-07-01 | 21KB | 508 lines

Sheet:
(0, 0)
(0, 1)        ClickBook/Excel Interface
(0, 2)
(1, 0)        7/1/93
(1, 1)        Change to manual recalc at start, and back again at end.  This doesn't handle
(1, 2)        KNG
(1, 4)        mnu.ClickBook
(1, 5)        -
(2, 0)
(2, 1)        the ONE LAST recalc you get when you switch back to auto-recalc mode,
(2, 2)
(2, 5)        Print a Clic&kbook
(2, 6)        PrintClickBook
(2, 8)        Print document using ClickBook
(3, 0)
(3, 1)        but I don't see a workaround.  Other add-ins do it too.
(3, 2)
(4, 0)
(4, 1)
(4, 2)
(5, 0)        5/24/93
(5, 1)        Modified from original.
(5, 2)        KNG
(6, 0)
(6, 1)        Improved error handling.  Added support for multiple versions of
(6, 2)
(7, 0)
(7, 1)        driver attached to various printer ports.  We now match the one currently in use
(7, 2)
(8, 0)
(8, 1)        in the default setting.
(8, 2)
(9, 0)
(9, 1)
(9, 2)
(10, 0)
(10, 1)
(10, 2)
(12, 1)        Global Variables (actually they're ALL global, but...)
(13, 0)        cb.Unassigned
(13, 1)        (Unassigned)
(14, 0)        cb.ErrorNumber
(14, 1)        0
(15, 0)        cb.HWND_BROADCAST
(15, 1)        -1
(16, 0)        cb.WM_WININICHANGE
(16, 1)        26
(18, 0)        cb.Title
(18, 1)        ClickBook
(19, 0)        cb.UnableToRun
(19, 1)        Unable to run ClickBook!
(20, 0)        cb.FirstFinalError
(20, 1)        6
(21, 0)        cb.CRLF
(21, 1)

(23, 0)        cb.Error1
(23, 1)        No device setting was found in Win.INI
(24, 0)        cb.Error2
(24, 1)        Invalid format for device string.
(25, 0)        cb.Error3
(25, 1)        ClickBook was unable to find matching CB driver.
(26, 0)        cb.Error4
(26, 1)        ClickBook was unable to set the printer to the ClickBook driver.
(27, 0)        cb.Error5
(27, 1)        ClickBook was unable to reset the current device in Win.INI.  You may need to use the Windows Control Panel to reset your default printer.
(28, 0)        cb.Error6
(28, 1)        ClickBook found an invalid setting in your Win.INI file.  Please check that file and then retry.
(30, 0)
(30, 1)        Auto_Open
(30, 2)        Add ClickBook menu item to File menu.
(31, 0)
(31, 1)        FALSE
(31, 2)
(32, 0)
(32, 1)        FALSE
(32, 2)
(33, 0)
(33, 1)        TRUE
(33, 2)
(34, 0)
(34, 1)        TRUE
(34, 2)
(36, 0)
(36, 1)        GetCurrentPrinter
(36, 2)        Get the current printer from Win.INI
(37, 0)        gcp.GetProfileString
(37, 1)        1388904448
(37, 2)        Register the API call.
(38, 0)
(38, 1)        TRUE
(38, 2)        Assume no errors.
(39, 0)        gcp.printerName
(39, 1)        CB HP LaserJet III,ClikBook,LPT2
(39, 2)        Ask WIN.INI for the current default printer
(40, 0)
(40, 1)        TRUE
(40, 2)        Unregister our API call to be polite.
(41, 0)
(41, 1)        TRUE
(41, 2)
(42, 0)
(42, 1)        FALSE
(42, 2)
(43, 0)
(43, 1)        FALSE
(43, 2)
(44, 0)
(44, 1)        TRUE
(44, 2)
(46, 0)
(46, 1)        SetCurrentPrinter
(46, 2)
(47, 0)
(47, 1)        TRUE
(47, 2)        Printer name to set.
(48, 0)
(48, 1)        TRUE
(48, 2)        Error to return if this fails.
(49, 0)
(49, 1)        TRUE
(49, 2)        Assume no errors.
(50, 0)        scp.WriteProfileString
(50, 1)        1989214208
(50, 2)        Register the API call.
(51, 0)
(51, 1)        TRUE
(51, 2)        Ask WIN.INI to set the new current printer.
(52, 0)
(52, 1)        TRUE
(52, 2)        Unregister our API call to be polite.
(53, 0)
(53, 1)        TRUE
(53, 2)        I don't think this will ever fail, but if it does,
(54, 0)
(54, 1)        TRUE
(54, 2)              set the error number.
(55, 0)
(55, 1)        TRUE
(55, 2)
(56, 0)
(56, 1)        TRUE
(56, 2)        Clear out the names from the name space,
(57, 0)
(57, 1)        TRUE
(57, 2)        just to save a little memory.
(58, 0)
(58, 1)        TRUE
(58, 2)
(59, 0)
(59, 1)        TRUE
(59, 2)
(59, 3)        i
(60, 1)
(60, 3)        TRUE
(61, 0)
(61, 1)        BroadcastWININIChange
(61, 2)        Tell the world that WIN.INI has changed.
(62, 0)        bwc.SendMessage
(62, 1)        -853475326
(62, 2)
(63, 0)
(63, 1)        0
(63, 2)
(64, 0)
(64, 1)        FALSE
(64, 2)
(65, 0)
(65, 1)        TRUE
(65, 2)
(67, 0)
(67, 1)        ExtractString
(67, 2)        Pull out the first part of the device name.
(68, 0)
(68, 1)        TRUE
(68, 2)        String to extract from
(69, 0)
(69, 1)        TRUE
(69, 2)        Which comma-delimited piece to extract?
(70, 0)
(70, 1)        TRUE
(70, 2)        We return a STRING!
(71, 0)        es.Retval
(71, 1)        ClikBook
(71, 2)
(72, 0)
(72, 1)        TRUE
(72, 2)        Assume no errors.
(73, 0)
(73, 1)        TRUE
(73, 2)
(74, 0)
(74, 1)        TRUE
(74, 2)
(75, 0)
(75, 1)        TRUE
(75, 2)
(76, 0)
(76, 1)        TRUE
(76, 2)
(77, 0)
(77, 1)        TRUE
(77, 2)
(78, 0)
(78, 1)        TRUE
(78, 2)
(79, 0)
(79, 1)        TRUE
(79, 2)
(80, 0)
(80, 1)        TRUE
(80, 2)
(81, 0)
(81, 1)        TRUE
(81, 2)
(82, 0)
(82, 1)        TRUE
(82, 2)
(83, 0)
(83, 1)        TRUE
(83, 2)
(84, 0)
(84, 1)        TRUE
(84, 2)
(85, 0)
(85, 1)        TRUE
(85, 2)
(86, 0)
(86, 1)        TRUE
(86, 2)
(87, 0)
(87, 1)        TRUE
(87, 2)
(88, 0)
(88, 1)        TRUE
(88, 2)        If we didn't find one,
(89, 0)
(89, 1)        TRUE
(89, 2)             we set the error value
(90, 0)
(90, 1)        FALSE
(90, 2)             and quit.
(91, 0)
(91, 1)        TRUE
(91, 2)
(92, 0)
(92, 1)        TRUE
(92, 2)
(93, 0)
(93, 1)        TRUE
(93, 2)        Return the left portion of the device name.
(94, 0)
(94, 1)        TRUE
(94, 2)
(95, 0)
(95, 1)        TRUE
(95, 2)
(96, 0)
(96, 1)        TRUE
(96, 2)
(97, 0)
(97, 1)        TRUE
(97, 2)
(98, 0)
(98, 1)        TRUE
(98, 2)
(100, 0)
(100, 1)        GetNewDevice
(100, 2)
(101, 0)
(101, 1)        TRUE
(101, 2)
(102, 0)        gnd.NewDeviceName
(102, 1)        CB HP LaserJet II
(102, 2)
(103, 0)        gnd.GetProfileString
(103, 1)        1388904448
(103, 2)        Register the API call.
(104, 0)
(104, 1)        TRUE
(104, 2)        Assume no errors.
(105, 0)        gnd.printerName
(105, 1)        ClikBook,LPT1
(105, 2)        Ask WIN.INI for the current default printer
(106, 0)
(106, 1)        TRUE
(106, 2)        Unregister our API call to be polite.
(107, 0)
(107, 1)        TRUE
(107, 2)        Clear the name, to save memory.
(108, 0)
(108, 1)        TRUE
(108, 2)        If we couldn't find a match,
(109, 0)
(109, 1)        TRUE
(109, 2)             set the errorNumber
(110, 0)
(110, 1)        TRUE
(110, 2)             and quit.
(111, 0)
(111, 1)        FALSE
(111, 2)
(112, 0)
(112, 1)        TRUE
(112, 2)        Otherwise, return the new device string.
(114, 0)
(114, 1)        HandleErrors
(114, 2)
(115, 0)
(115, 1)        TRUE
(115, 2)
(116, 0)
(116, 1)        TRUE
(116, 2)
(117, 0)
(117, 1)        FALSE
(117, 2)
(118, 0)
(118, 1)        TRUE
(118, 2)
(119, 0)
(119, 1)        TRUE
(119, 2)
(120, 0)
(120, 1)        TRUE
(120, 2)
(121, 0)
(121, 1)        TRUE
(121, 2)
(122, 0)
(122, 1)        TRUE
(122, 2)
(123, 0)
(123, 1)        TRUE
(123, 2)
(124, 0)
(124, 1)        TRUE
(124, 2)
(125, 0)
(125, 1)        TRUE
(125, 2)
(127, 0)
(127, 1)        PrintClickBook
(127, 2)
(128, 0)
(128, 1)        FALSE
(128, 2)        Get current recalc state
(129, 0)
(129, 1)        FALSE
(129, 2)        Turn off automatic recalc
(130, 0)
(130, 1)        TRUE
(130, 2)
(131, 0)
(131, 1)        TRUE
(131, 2)        "HP LaserJet III,HPPCL5E, LPT1:"
(132, 0)
(132, 1)        TRUE
(132, 2)
(133, 0)
(133, 1)        FALSE
(133, 2)
(134, 0)
(134, 1)        FALSE
(134, 2)
(135, 0)
(135, 1)        TRUE
(135, 2)        "HP LaserJet III"
(136, 0)
(136, 1)        TRUE
(136, 2)
(137, 0)
(137, 1)        FALSE
(137, 2)
(138, 0)
(138, 1)        FALSE
(138, 2)
(139, 0)
(139, 1)        TRUE
(139, 2)        "LPT1:"
(140, 0)
(140, 1)        TRUE
(140, 2)
(141, 0)
(141, 1)        FALSE
(141, 2)
(142, 0)
(142, 1)        FALSE
(142, 2)
(143, 0)
(143, 1)        TRUE
(143, 2)        "CB HP LaserJet III,ClickBook,LPT1:"
(144, 0)
(144, 1)        TRUE
(144, 2)
(145, 0)
(145, 1)        FALSE
(145, 2)
(146, 0)
(146, 1)        FALSE
(146, 2)
(147, 0)
(147, 1)        TRUE
(147, 2)        "CB HP LaserJet III"
(148, 0)
(148, 1)        TRUE
(148, 2)
(149, 0)
(149, 1)        FALSE
(149, 2)
(150, 0)
(150, 1)        FALSE
(150, 2)
(151, 0)
(151, 1)        TRUE
(151, 2)        "ClickBook"
(152, 0)
(152, 1)        TRUE
(152, 2)
(153, 0)
(153, 1)        FALSE
(153, 2)
(154, 0)
(154, 1)        FALSE
(154, 2)
(155, 0)
(155, 1)        TRUE
(155, 2)
(156, 0)
(156, 1)        #N/A!
(156, 2)
(157, 0)
(157, 1)        TRUE
(157, 2)
(158, 0)
(158, 1)        FALSE
(158, 2)
(159, 0)
(159, 1)        FALSE
(159, 2)
(160, 0)
(160, 1)        TRUE
(160, 2)        Turn off error message display.
(161, 0)        pcb.PrintDialog
(161, 1)        #VALUE!
(161, 2)        Pop up the print dialog.
(162, 0)
(162, 1)        TRUE
(162, 2)        We'll get an error if there is an invalid port.
(163, 0)
(163, 1)        TRUE
(163, 2)        Force the error value, since we KNOW there's an error.
(164, 0)
(164, 1)        TRUE
(164, 2)
(165, 0)
(165, 1)        FALSE
(165, 2)
(166, 0)
(166, 1)        TRUE
(166, 2)
(167, 0)
(167, 1)        #N/A!
(167, 2)
(168, 0)
(168, 1)        TRUE
(168, 2)
(169, 0)
(169, 1)        FALSE
(169, 2)
(170, 0)
(170, 1)        FALSE
(170, 2)
(171, 0)
(171, 1)
(171, 2)
(172, 0)        pcb.Exit
(172, 1)        TRUE
(172, 2)        Clear out the memory we aren't using.
(173, 0)
(173, 1)        TRUE
(173, 2)
(174, 0)
(174, 1)        TRUE
(174, 2)
(175, 0)
(175, 1)        TRUE
(175, 2)
(176, 0)
(176, 1)        TRUE
(176, 2)
(177, 0)
(177, 1)        TRUE
(177, 2)
(178, 0)
(178, 1)        TRUE
(178, 2)
(179, 0)
(179, 1)        FALSE
(179, 2)
(180, 0)
(180, 1)        FALSE
(180, 2)
(181, 0)
(181, 1)
(181, 2)